| blib/lib/Net/IPFromZip.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 24 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 32 | 0 | 0 | if ($_[0] =~ /^[\d-]+$/u) { } |
| 38 | 0 | 0 | if (defined $_[1] and $_[1] =~ /csv/giu) { } |
| 47 | 0 | 0 | unless opendir my $cwd, $pwd |
| 49 | 0 | 0 | if (/Blocks/giu and /csv/giu) |
| 56 | 0 | 0 | if (-d '/usr/local/share/GeoIP') |
| 58 | 0 | 0 | if ($geoipDir) |
| 60 | 0 | 0 | if (/Blocks/giu and /csv/giu) |
| 68 | 0 | 0 | unless (defined $csvFile) |
| 85 | 0 | 0 | unless my $csv = 'Text::CSV_XS'->new({'binary', 1}) |
| 88 | 0 | 0 | unless open my $fh, "<$csvFile" |
| 95 | 0 | 0 | unless $$row[6] =~ /$postalCode/u |
| 99 | 0 | 0 | unless $csv->eof |