| blib/lib/App/p5find.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 18 | 38.8 |
| line | true | false | branch |
|---|---|---|---|
| 33 | 1 | 10 | unless defined $f |
| 55 | 14 | 8 | if $file =~ / \.(?: t|p[ml]|pod|comp ) $/iux |
| 56 | 8 | 0 | if $file =~ / \. /iux |
| 57 | 0 | 0 | if (open my $fh, "<", $file) |
| 59 | 0 | 0 | if $line =~ /^#!.*perl/u |
| 71 | 0 | 0 | if ($to_print->{$line_number}) |
| 92 | 2 | 2 | @$arrows ? : |
| 100 | 0 | 0 | @$found ? : |
| 107 | 0 | 0 | unless defined &$cb($it) |