1 |
package Frey::ClassLoader; |
package Frey::Class::Loader; |
2 |
use Moose; |
use Moose; |
3 |
|
|
4 |
=head1 DESCRIPTION |
=head1 DESCRIPTION |
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 |
} |
} |