Parent Directory | Revision Log | Patch
revision 489 by dpavlin, Mon Nov 24 17:26:47 2008 UTC | revision 491 by dpavlin, Mon Nov 24 18:29:41 2008 UTC | |
---|---|---|
# | Line 121 sub has_tests { | Line 121 sub has_tests { |
121 | if ( my $tests = $class_has_tests->{ $class } ) { | if ( my $tests = $class_has_tests->{ $class } ) { |
122 | my @tests = keys %$tests; | my @tests = keys %$tests; |
123 | warn "# has_tests $class ",dump( @tests ); | warn "# has_tests $class ",dump( @tests ); |
124 | return @tests; | return @tests if wantarray; |
125 | return \@tests; | |
126 | } | } |
127 | } | } |
128 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |