19 if ($] >= 5.009_005) {
21 $impl = \&mro::get_linear_isa;
25 eval { require MRO::Compat };
29 $impl = \&mro::get_linear_isa;
31 # VVVVV CODE TAKEN FROM MRO::COMPAT VVVVV
32 my $_get_linear_isa_dfs; # this recurses so it isn't pretty
33 $_get_linear_isa_dfs = sub {
36 my $classname = shift;
38 my @lin = ($classname);
40 foreach my $parent (@{"$classname\::ISA"}) {
41 my $plin = $_get_linear_isa_dfs->($parent);
42 foreach my $p(@$plin) {
43 next if exists $stored{$p};
50 # ^^^^^ CODE TAKEN FROM MRO::COMPAT ^^^^^
51 $impl = $_get_linear_isa_dfs;
57 *get_linear_isa = $impl;
60 { # taken from Sub::Identify
61 sub get_code_info($) {
\r
63 ref($coderef) or return;
\r
65 my $cv = B::svref_2object($coderef);
\r
66 $cv->isa('B::CV') or return;
69 $gv->isa('B::GV') or return;
\r
71 return ($gv->STASH->NAME, $gv->NAME);
\r
75 # taken from Class/MOP.pm
79 sub resolve_metaclass_alias {
80 my ( $type, $metaclass_name, %options ) = @_;
82 my $cache_key = $type;
83 return $cache{$cache_key}{$metaclass_name}
84 if $cache{$cache_key}{$metaclass_name};
86 my $possible_full_name =
93 load_first_existing_class( $possible_full_name,
96 return $cache{$cache_key}{$metaclass_name} =
97 $loaded_class->can('register_implementation')
98 ? $loaded_class->register_implementation
103 # taken from Class/MOP.pm
104 sub is_valid_class_name {
107 return 0 if ref($class);
108 return 0 unless defined($class);
109 return 0 unless length($class);
111 return 1 if $class =~ /^\w+(?:::\w+)*$/;
116 # taken from Class/MOP.pm
117 sub load_first_existing_class {
123 for my $class (@classes) {
124 unless ( is_valid_class_name($class) ) {
125 my $display = defined($class) ? $class : 'undef';
126 confess "Invalid class name ($display)";
129 my $e = _try_load_one_class($class);
132 $exceptions{$class} = $e;
139 return $found if $found;
144 sprintf( "Could not load class (%s) because : %s",
145 $_, $exceptions{$_} )
150 # taken from Class/MOP.pm
151 sub _try_load_one_class {
154 return if Mouse::is_class_loaded($class);
156 my $file = $class . '.pm';
161 eval { require($file) };
166 sub apply_all_roles {
167 my $meta = Mouse::Meta::Class->initialize(shift);
171 # Basis of Data::OptList
172 my $max = scalar(@_);
173 for (my $i = 0; $i < $max ; $i++) {
174 if ($i + 1 < $max && ref($_[$i + 1])) {
175 push @roles, [ $_[$i++] => $_[$i] ];
177 push @roles, [ $_[$i] => {} ];
181 foreach my $role_spec (@roles) {
182 Mouse::load_class( $role_spec->[0] );
185 ( $_->[0]->can('meta') && $_->[0]->meta->isa('Mouse::Meta::Role') )
186 || confess("You can only consume roles, "
188 . " is not a Moose role")
191 if ( scalar @roles == 1 ) {
192 my ( $role, $params ) = @{ $roles[0] };
193 $role->meta->apply( $meta, ( defined $params ? %$params : () ) );
196 Mouse::Meta::Role->combine_apply($meta, @roles);
207 Mouse::Util - features, with or without their dependencies
209 =head1 IMPLEMENTATIONS FOR
211 =head2 L<MRO::Compat>
213 =head3 get_linear_isa