| bin/perldolicious | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 16 | 25.0 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 0 | 0 | unless -f $cpan_package_file |
| 26 | 0 | 0 | unless my $fh = 'IO::Zlib'->new($cpan_package_file, 'r') |
| 32 | 0 | 0 | unless @columns == 3 |
| 49 | 0 | 3 | unless $pattern |
| 52 | 0 | 3 | $$p{'ignore_case'} ? : |
| 53 | 1 | 2 | if $@ |
| 61 | 0 | 0 | unless open my $fh, '<', $config_file |
| 67 | 0 | 0 | unless close $fh |