| blib/lib/Archive/TAP/Peek.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 18 | 72.2 |
| line | true | false | branch |
|---|---|---|---|
| 22 | 0 | 2 | unless exists $args{'archive'} |
| 24 | 0 | 2 | unless -f $args{'archive'} |
| 30 | 0 | 2 | unless $ae->is_tgz |
| 34 | 0 | 2 | unless $ae->extract('to', $tmpdir) |
| 42 | 2 | 8 | unless $f =~ /.*\.t$/ |
| 47 | 0 | 8 | unless open my $tap_fh, $tap_file |
| 58 | 55 | 8 | if ($line =~ /^ok/) { } |
| 1 | 7 | elsif ($line =~ /^not ok/) { } | |
| 83 | 1 | 1 | if ($$self{'error_found'}) { } |