| blib/lib/App/Reorder/TSV.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 14 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 1 | 14 | unless defined $arg_ref->{'tsv'} |
| 19 | 1 | 13 | unless defined $arg_ref->{'template'} |
| 37 | 1 | 12 | unless -e $tsv |
| 39 | 3 | 9 | if ($tsv =~ /[.]gz \z/msx) { } |
| 40 | 1 | 2 | unless $fh = 'IO::Uncompress::Gunzip'->new($tsv, 'MultiStream', 1, 'Transparent', 0) |
| 56 | 1 | 10 | unless -e $template |
| 102 | 13 | 13 | unless (defined $fh) |