::lives_ok {
with 'Role::RequireFoo';
- } '... the required "foo" method will not exist yet (but we will live)';
+ } 'the required "foo" method will not exist yet (but we will live)';
override 'foo' => sub { 'Role::ProvideFoo::foo' };
}
is_deeply(
[ Role::ProvideFoo->meta->get_required_method_list ],
[ 'foo' ],
- '... foo method is still required for Role::ProvideFoo');
+ 'foo method is still required for Role::ProvideFoo');
=pod
::lives_ok {
with 'Role::RequireFoo';
- } '... the required "foo" method will be found in the superclass';
+ } 'the required "foo" method will be found in the superclass';
override 'foo' => sub { 'Class::ProvideFoo::foo' };
::lives_ok {
with 'Role::RequireFoo';
- } '... the required "foo" method exists, although it is overriden locally';
+ } 'the required "foo" method exists, although it is overriden locally';
}
::lives_ok {
with 'Role::RequireFoo';
- } '... the required "foo" method will be found in the superclass';
+ } 'the required "foo" method will be found in the superclass';
before 'foo' => sub { 'Class::ProvideFoo::foo:before' };
::lives_ok {
with 'Role::RequireFoo';
- } '... the required "foo" method exists, although it is a before modifier locally';
+ } 'the required "foo" method exists, although it is a before modifier locally';
package Class::ProvideFoo::Before3;
use Moose;
::lives_ok {
with 'Role::RequireFoo';
- } '... the required "foo" method exists locally, and it is modified locally';
+ } 'the required "foo" method exists locally, and it is modified locally';
package Class::ProvideFoo::Before4;
use Moose;
::isa_ok(__PACKAGE__->meta->get_method('foo'), 'Class::MOP::Method::Wrapped');
::is(__PACKAGE__->meta->get_method('foo')->get_original_method->package_name, __PACKAGE__,
- '... but the original method is from our package');
+ 'but the original method is from our package');
::lives_ok {
with 'Role::RequireFoo';
- } '... the required "foo" method exists in the symbol table (and we will live)';
+ } 'the required "foo" method exists in the symbol table (and we will live)';
}
::lives_ok {
with 'Role::RequireFoo';
- } '... the required "foo" method will be found in the superclass (but then overriden)';
+ } 'the required "foo" method will be found in the superclass (but then overriden)';
has 'foo' => (is => 'ro');
::lives_ok {
with 'Role::RequireFoo';
- } '... the required "foo" method exists, and is an accessor';
+ } 'the required "foo" method exists, and is an accessor';
}
# ...
::lives_ok {
with 'Foo::Role';
- } '... our role combined successfully';
+ } 'our role combined successfully';
}
# a method required in a role and implemented in a superclass, with a method