/[Frey]/trunk/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 /trunk/lib/Frey/ClassLoader.pm

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

revision 319 by dpavlin, Wed Nov 5 19:13:01 2008 UTC revision 320 by dpavlin, Thu Nov 6 16:05:45 2008 UTC
# Line 103  sub load_class { Line 103  sub load_class {
103                  Class::MOP::load_class($class) if ! $loaded_class->{$class}++;                  Class::MOP::load_class($class) if ! $loaded_class->{$class}++;
104          };          };
105          warn $@ if $@; # && $@ !~ m/role/;          warn $@ if $@; # && $@ !~ m/role/;
106          warn "# load_class $class" if $loaded_class->{$class} == 1;          warn "# load_class $class" if $self->debug && $loaded_class->{$class} == 1;
107  }  }
108    
109  sub load_all_classes {  sub load_all_classes {
110          my $self = shift;          my $self = shift;
111          warn "# loaded_class = ",dump( $loaded_class );          warn "# loaded_class = ",dump( $loaded_class ) if $self->debug;
112          $self->load_class( $_ ) foreach ( $self->classes );          $self->load_class( $_ ) foreach ( $self->classes );
113          $loaded_class;          $loaded_class;
114  }  }
Legend:
Removed from v.319  
changed lines
  Added in v.320
  ViewVC Help
Powered by ViewVC 1.1.26