114 |
sub has_tests { |
sub has_tests { |
115 |
my ($self) = shift; |
my ($self) = shift; |
116 |
|
|
117 |
$self->parse_tests unless defined $class_has_tests; |
$self->parse_tests unless $class_has_tests; |
118 |
|
|
119 |
my $class = $self->class; |
my $class = $self->class; |
120 |
|
|
121 |
if ( my $tests = $class_has_tests->{ $class } ) { |
if ( my $tests = $class_has_tests->{ $class } ) { |
122 |
# warn "# has_tests $class ",dump( keys %$tests ); |
my @tests = keys %$tests; |
123 |
return [ keys %$tests ]; |
warn "# has_tests $class ",dump( @tests ); |
124 |
|
return @tests; |
125 |
} |
} |
|
return []; |
|
126 |
} |
} |
127 |
|
|
128 |
=head2 as_data |
=head2 as_data |