| bin/ptardiff | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 16 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 3 | 1 | 0 | if $INC[-1] eq "." |
| 10 | 0 | 1 | unless &getopts("h:", $opts) |
| 12 | 0 | 1 | if $opts->{'h'} |
| 15 | 0 | 1 | unless (eval { do { require Text::Diff; "Text::Diff"->import; 1 } }) |
| 19 | 0 | 1 | unless my $arch = shift @ARGV |
| 20 | 0 | 1 | unless my $tar = "Archive::Tar"->new($arch) |
| 24 | 0 | 2 | unless $file->is_file |
| 27 | 2 | 0 | if (defined $prefix) |