--- trunk/lib/Frey/ClassLoader.pm 2008/12/02 19:01:32 687 +++ trunk/lib/Frey/Class/Loader.pm 2008/12/24 13:51:59 887 @@ -1,4 +1,4 @@ -package Frey::ClassLoader; +package Frey::Class::Loader; use Moose; =head1 DESCRIPTION @@ -172,9 +172,11 @@ =cut +sub class_runnable_re { m{^as_} || m{_as_} || m{sql} } + sub class_runnable { my ( $self, $class ) = @_; - my @methods = grep { m{^as_} || m{_as_} } $self->class_methods( $class ); + my @methods = grep { class_runnable_re } $self->class_methods( $class ); return @methods if wantarray; return \@methods; }