Parent Directory | Revision Log | Patch
revision 798 by dpavlin, Wed Dec 10 19:34:08 2008 UTC | revision 887 by dpavlin, Wed Dec 24 13:51:59 2008 UTC | |
---|---|---|
# | Line 172 sub class_methods { | Line 172 sub class_methods { |
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 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |