/[Frey]/branches/no-pager/lib/Frey/ClassLoader.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /branches/no-pager/lib/Frey/ClassLoader.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 409 by dpavlin, Tue Nov 18 13:52:26 2008 UTC revision 412 by dpavlin, Tue Nov 18 14:07:28 2008 UTC
# Line 88  sub class_meta { Line 88  sub class_meta {
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    
# Line 140  sub class_methods { Line 140  sub class_methods {
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;
Legend:
Removed from v.409  
changed lines
  Added in v.412
  ViewVC Help
Powered by ViewVC 1.1.26