88 |
|
|
89 |
if ( ! $class->can('meta') ) { |
if ( ! $class->can('meta') ) { |
90 |
my $instance = Moose::Meta::Class->create_anon_class; |
my $instance = Moose::Meta::Class->create_anon_class; |
91 |
warn "class $class isn't Moose, faking anon class"; |
warn "class $class isn't Moose, faking anon class" if $self->debug; |
92 |
return ( $instance, 0 ); |
return ( $instance, 0 ); |
93 |
} |
} |
94 |
|
|
140 |
|
|
141 |
confess "need class" unless $class; |
confess "need class" unless $class; |
142 |
if ( ! $class->can('meta') ) { |
if ( ! $class->can('meta') ) { |
143 |
warn "$class doesn't have meta (isn't Moose class)"; |
warn "$class doesn't have meta (isn't Moose class)" if $self->debug; |
144 |
return; |
return; |
145 |
} |
} |
146 |
my $meta = $class->meta; |
my $meta = $class->meta; |