5 |
|
|
6 |
use PPI; |
use PPI; |
7 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
8 |
|
use File::Find; |
9 |
|
|
10 |
has 'class' => ( |
has 'class' => ( |
11 |
is => 'rw', |
is => 'rw', |
82 |
sub parse_tests { |
sub parse_tests { |
83 |
my ( $self ) = @_; |
my ( $self ) = @_; |
84 |
|
|
85 |
map { |
finddepth({ no_chdir => 1, wanted => sub { |
86 |
|
return unless m{\.t$}; |
87 |
|
|
88 |
warn "## ppi test $_" if $self->debug; |
warn "## ppi test $_" if $self->debug; |
89 |
|
|
90 |
my $doc = Frey::PPI->new( class => $_ ); |
my $doc = Frey::PPI->new( class => $_ ); |
103 |
my $class = $el->child(1)->child(0)->child(0)->literal; |
my $class = $el->child(1)->child(0)->child(0)->literal; |
104 |
$class_has_tests->{$class}->{$_}++; |
$class_has_tests->{$class}->{$_}++; |
105 |
}); |
}); |
106 |
} glob 't/*.t'; |
} }, 't/'); |
107 |
warn "# collected class tests ",dump( $class_has_tests ) if $self->debug; |
warn "# collected class tests ",dump( $class_has_tests ) if $self->debug; |
108 |
|
|
109 |
return $class_has_tests; |
return $class_has_tests; |