20 if ($] >= 5.009_005) {
22 $impl = \&mro::get_linear_isa;
26 eval { require MRO::Compat };
30 $impl = \&mro::get_linear_isa;
32 # VVVVV CODE TAKEN FROM MRO::COMPAT VVVVV
33 my $_get_linear_isa_dfs; # this recurses so it isn't pretty
34 $_get_linear_isa_dfs = sub {
37 my $classname = shift;
39 my @lin = ($classname);
41 foreach my $parent (@{"$classname\::ISA"}) {
42 my $plin = $_get_linear_isa_dfs->($parent);
43 foreach my $p(@$plin) {
44 next if exists $stored{$p};
51 # ^^^^^ CODE TAKEN FROM MRO::COMPAT ^^^^^
52 $impl = $_get_linear_isa_dfs;
58 *get_linear_isa = $impl;
61 { # taken from Sub::Identify
62 sub get_code_info($) {
\r
64 ref($coderef) or return;
\r
66 my $cv = B::svref_2object($coderef);
\r
67 $cv->isa('B::CV') or return;
70 $gv->isa('B::GV') or return;
\r
72 return ($gv->STASH->NAME, $gv->NAME);
\r
76 # taken from Class/MOP.pm
80 sub resolve_metaclass_alias {
81 my ( $type, $metaclass_name, %options ) = @_;
83 my $cache_key = $type;
84 return $cache{$cache_key}{$metaclass_name}
85 if $cache{$cache_key}{$metaclass_name};
87 my $possible_full_name =
94 load_first_existing_class( $possible_full_name,
97 return $cache{$cache_key}{$metaclass_name} =
98 $loaded_class->can('register_implementation')
99 ? $loaded_class->register_implementation
104 # taken from Class/MOP.pm
105 sub is_valid_class_name {
108 return 0 if ref($class);
109 return 0 unless defined($class);
110 return 0 unless length($class);
112 return 1 if $class =~ /^\w+(?:::\w+)*$/;
117 # taken from Class/MOP.pm
118 sub load_first_existing_class {
124 for my $class (@classes) {
125 unless ( is_valid_class_name($class) ) {
126 my $display = defined($class) ? $class : 'undef';
127 confess "Invalid class name ($display)";
130 my $e = _try_load_one_class($class);
133 $exceptions{$class} = $e;
140 return $found if $found;
145 sprintf( "Could not load class (%s) because : %s",
146 $_, $exceptions{$_} )
151 # taken from Class/MOP.pm
152 sub _try_load_one_class {
155 return if Mouse::is_class_loaded($class);
157 my $file = $class . '.pm';
162 eval { require($file) };
167 sub apply_all_roles {
168 my $meta = Mouse::Meta::Class->initialize(shift);
172 # Basis of Data::OptList
173 my $max = scalar(@_);
174 for (my $i = 0; $i < $max ; $i++) {
175 if ($i + 1 < $max && ref($_[$i + 1])) {
176 push @roles, [ $_[$i++] => $_[$i] ];
178 push @roles, [ $_[$i] => {} ];
182 foreach my $role_spec (@roles) {
183 Mouse::load_class( $role_spec->[0] );
186 ( $_->[0]->can('meta') && $_->[0]->meta->isa('Mouse::Meta::Role') )
187 || confess("You can only consume roles, "
189 . " is not a Moose role")
192 if ( scalar @roles == 1 ) {
193 my ( $role, $params ) = @{ $roles[0] };
194 $role->meta->apply( $meta, ( defined $params ? %$params : () ) );
197 Mouse::Meta::Role->combine_apply($meta, @roles);
205 $feature ||= ( caller(1) )[3]; # subroutine name
207 local $Carp::CarpLevel = $Carp::CarpLevel + 2;
208 Carp::croak("Mouse does not currently support $feature");
217 Mouse::Util - features, with or without their dependencies
219 =head1 IMPLEMENTATIONS FOR
221 =head2 L<MRO::Compat>
223 =head3 get_linear_isa