runtime-role-application-moo.t

use Test2::V0;
use Moo;

{
    package Person;
    use Moo;
    has age => ( is => 'ro' );
}

{
    package Adult;
    use Moo::Role;
    requires qw< age >;
    sub adult { $_[0]->age >= 18 }
}

{
    require Moo::Role;
    my $person = Person->new( age => 20 );
    Moo::Role->apply_roles_to_object( $person, qw< Adult > );
    can_ok( $person, qw< adult > );
}

{
    require Moo::Role;
    my $Person = Moo::Role->create_class_with_roles( 'Person', qw< Adult > );
    my $person = $Person->new( age => 20 );
    can_ok( $person, qw< adult > );
}

done_testing;

runtime-role-application-moops.t

use Test2::V0;
use Moops;

class Person :ro {
    has age => ();
};

role Adult {
    requires qw< age >;
    method adult { $self->age >= 18 }
};

{
    require Moo::Role;
    my $person = Person->new( age => 20 );
    Moo::Role->apply_roles_to_object( $person, qw< Adult > );
    can_ok( $person, qw< adult > );
}

{
    require Moo::Role;
    my $Person = Moo::Role->create_class_with_roles( 'Person', qw< Adult > );
    my $person = $Person->new( age => 20 );
    can_ok( $person, qw< adult > );
}

done_testing;