| blib/lib/Geo/GeoNames/File.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 16 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 83 | 0 | 2 | if ($$self{'cur_fh'}) |
| 109 | 0 | 20 | if ($filter and ref $filter ne 'CODE') |
| 114 | 15 | 5 | if ($$self{'cur_fh'}) { } |
| 118 | 3 | 30 | if (eof $$self{'cur_fh'}) { } |
| 130 | 0 | 30 | if $line =~ /^\s*#/ |
| 134 | 18 | 12 | if $filter and not &$filter($rec) |
| 142 | 2 | 3 | unless $$self{'cur_filename'} = shift @{$$self{'filenames'};} |
| 145 | 0 | 3 | unless CORE::open $$self{'cur_fh'}, '<:utf8', $$self{'cur_filename'} |