1 |
package Frey::ClassLoader; |
package Frey::Class::Loader; |
2 |
use Moose; |
use Moose; |
3 |
|
|
4 |
=head1 DESCRIPTION |
=head1 DESCRIPTION |
65 |
$path = $INC{$path}; |
$path = $INC{$path}; |
66 |
warn "# $class from INC $path"; |
warn "# $class from INC $path"; |
67 |
$class_path->{$class} = $path; |
$class_path->{$class} = $path; |
68 |
|
} elsif ( $path =~ s{\.pm$}{} && -e "lib/${path}.pod" ) { |
69 |
|
return "lib/${path}.pod"; |
70 |
} else { |
} else { |
71 |
confess "can't find path for $class"; |
confess "can't find $class at $path"; |
72 |
} |
} |
73 |
} |
} |
74 |
return $class_path->{$class}; |
return $class_path->{$class}; |
172 |
|
|
173 |
=cut |
=cut |
174 |
|
|
175 |
|
sub class_runnable_re { m{^as_} || m{_as_} || m{sql} } |
176 |
|
|
177 |
sub class_runnable { |
sub class_runnable { |
178 |
my ( $self, $class ) = @_; |
my ( $self, $class ) = @_; |
179 |
my @methods = grep { m{^as_} || m{_as_} } $self->class_methods( $class ); |
my @methods = grep { class_runnable_re } $self->class_methods( $class ); |
180 |
return @methods if wantarray; |
return @methods if wantarray; |
181 |
return \@methods; |
return \@methods; |
182 |
} |
} |