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 |
} |
} |