34 |
$class =~ s{^lib/}{}; |
$class =~ s{^lib/}{}; |
35 |
$class =~ s{\.pm$}{}; |
$class =~ s{\.pm$}{}; |
36 |
$class =~ s{/}{::}g; |
$class =~ s{/}{::}g; |
37 |
|
if ( $class =~ m{Mojo} ) { |
38 |
|
warn "# skip Mojo class $class"; |
39 |
|
return; |
40 |
|
} |
41 |
$class_path->{ $class } = $_; |
$class_path->{ $class } = $_; |
42 |
} }, 'lib'); |
} }, 'lib'); |
43 |
warn "## class_path = ",dump( $class_path ) if $self->debug; |
warn "## class_path = ",dump( $class_path ) if $self->debug; |
220 |
Frey::Role::as_sponge->meta->apply( $instance ); |
Frey::Role::as_sponge->meta->apply( $instance ); |
221 |
warn "# apply as_sponge role to $class"; |
warn "# apply as_sponge role to $class"; |
222 |
} |
} |
223 |
|
|
224 |
|
$self->add_status({ $class => $params }) if $self->can('add_status'); |
225 |
return $instance; |
return $instance; |
226 |
} |
} |
227 |
|
|