16 if ($] >= 5.009_005) {
17 $impl = \&mro::get_linear_isa;
20 local $SIG{__DIE__} = 'DEFAULT';
21 eval "require MRO::Compat; 1";
24 $impl = \&mro::get_linear_isa;
26 # VVVVV CODE TAKEN FROM MRO::COMPAT VVVVV
27 my $code; # this recurses so it isn't pretty
31 my $classname = shift;
33 my @lin = ($classname);
35 foreach my $parent (@{"$classname\::ISA"}) {
36 my $plin = $code->($parent);
38 next if exists $stored{$_};
45 # ^^^^^ CODE TAKEN FROM MRO::COMPAT ^^^^^
51 *{ __PACKAGE__ . '::get_linear_isa'} = $impl;
55 my $meta = Mouse::Meta::Class->initialize(shift);
59 for (my $i = 0; $i < $max ; $i++) {
60 if ($i + 1 < $max && ref($_[$i + 1])) {
61 push @roles, [ $_[$i++] => $_[$i] ];
63 push @roles, [ $_[$i] => {} ];
67 foreach my $role_spec (@roles) {
68 Mouse::load_class( $role_spec->[0] );
71 ( $_->[0]->can('meta') && $_->[0]->meta->isa('Mouse::Meta::Role') )
72 || croak("You can only consume roles, "
74 . " is not a Moose role")
77 if ( scalar @roles == 1 ) {
78 my ( $role, $params ) = @{ $roles[0] };
79 $role->meta->apply( $meta, ( defined $params ? %$params : () ) );
82 Mouse::Meta::Role->combine_apply($meta, @roles);
93 Mouse::Util - features, with or without their dependencies
95 =head1 IMPLEMENTATIONS FOR