| blib/lib/Devel/Command/Tdump.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 18 | 88.8 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 1 | 9 | unless defined $outfile |
| 25 | 0 | 10 | if (not open($tfh, ">$outfile")) { } |
| 37 | 36 | 9 | if (@lines) |
| 48 | 30 | 15 | unless $forced_capture or $is_test = is_a_test($line, \%test_names) |
| 50 | 9 | 6 | if $is_test |
| 51 | 15 | 0 | unless $line =~ /;$/ |
| 57 | 3 | 7 | $test_count == 1 ? : |
| 74 | 241 | 80 | if not /^_/ |
| 81 | 12 | 29 | if (my($possible, $paren) = /^\s*(\w+)\(/) |