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;
56 *{ __PACKAGE__ . '::get_linear_isa'} = $impl;
59 { # taken from Sub::Identify
60 sub get_code_info($) {
\r
62 ref($coderef) or return;
\r
64 my $cv = B::svref_2object($coderef);
\r
65 $cv->isa('B::CV') or return;
68 $gv->isa('B::GV') or return;
\r
70 return ($gv->STASH->NAME, $gv->NAME);
\r
74 # taken from Class/MOP.pm
78 sub resolve_metaclass_alias {
79 my ( $type, $metaclass_name, %options ) = @_;
81 my $cache_key = $type;
82 return $cache{$cache_key}{$metaclass_name}
83 if $cache{$cache_key}{$metaclass_name};
85 my $possible_full_name =
92 load_first_existing_class( $possible_full_name,
95 return $cache{$cache_key}{$metaclass_name} =
96 $loaded_class->can('register_implementation')
97 ? $loaded_class->register_implementation
102 # taken from Class/MOP.pm
103 sub _is_valid_class_name {
106 return 0 if ref($class);
107 return 0 unless defined($class);
108 return 0 unless length($class);
110 return 1 if $class =~ /^\w+(?:::\w+)*$/;
115 # taken from Class/MOP.pm
116 sub load_first_existing_class {
122 for my $class (@classes) {
123 unless ( _is_valid_class_name($class) ) {
124 my $display = defined($class) ? $class : 'undef';
125 confess "Invalid class name ($display)";
128 my $e = _try_load_one_class($class);
131 $exceptions{$class} = $e;
138 return $found if $found;
143 sprintf( "Could not load class (%s) because : %s",
144 $_, $exceptions{$_} )
149 # taken from Class/MOP.pm
150 sub _try_load_one_class {
153 return if Mouse::is_class_loaded($class);
155 my $file = $class . '.pm';
160 eval { require($file) };
165 sub apply_all_roles {
166 my $meta = Mouse::Meta::Class->initialize(shift);
170 # Basis of Data::OptList
171 my $max = scalar(@_);
172 for (my $i = 0; $i < $max ; $i++) {
173 if ($i + 1 < $max && ref($_[$i + 1])) {
174 push @roles, [ $_[$i++] => $_[$i] ];
176 push @roles, [ $_[$i] => {} ];
180 foreach my $role_spec (@roles) {
181 Mouse::load_class( $role_spec->[0] );
184 ( $_->[0]->can('meta') && $_->[0]->meta->isa('Mouse::Meta::Role') )
185 || confess("You can only consume roles, "
187 . " is not a Moose role")
190 if ( scalar @roles == 1 ) {
191 my ( $role, $params ) = @{ $roles[0] };
192 $role->meta->apply( $meta, ( defined $params ? %$params : () ) );
195 Mouse::Meta::Role->combine_apply($meta, @roles);
206 Mouse::Util - features, with or without their dependencies
208 =head1 IMPLEMENTATIONS FOR
210 =head2 L<MRO::Compat>
212 =head3 get_linear_isa