{
package FooRole;
- use strict;
- use warnings;
use Moose::Role;
has 'bar' => (is => 'rw', isa => 'FooClass');
'FooRole::blau -> ' . $c->();
};
+}{
package BarClass;
- use strict;
- use warnings;
use Moose;
sub boo { 'BarClass::boo' }
sub foo { 'BarClass::foo' } # << the role overrides this ...
+
+ __PACKAGE__->meta->make_immutable(debug => 0);
+}{
package FooClass;
- use strict;
- use warnings;
use Moose;
extends 'BarClass';
sub blau { 'FooClass::blau' }
sub goo { 'FooClass::goo' } # << overrides the one from the role ...
+
+ __PACKAGE__->meta->make_immutable(debug => 0);
}
my $foo_class_meta = FooClass->meta;