| blib/lib/Hints.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 22 | 31.8 |
| line | true | false | branch |
|---|---|---|---|
| 82 | 0 | 4 | unless defined $file |
| 84 | 4 | 0 | if (ref $file eq 'ARRAY') { } |
| 0 | 0 | elsif (ref $file) { } | |
| 90 | 0 | 0 | if $@ |
| 93 | 0 | 0 | unless $ioref = 'IO::File'->new($file) |
| 100 | 16 | 36 | if (/$separator/) { } |
| 107 | 0 | 4 | unless ref $file |
| 108 | 3 | 1 | if @current |
| 184 | 0 | 0 | if $obj->count == 1 |
| 229 | 0 | 0 | if ++$$obj{'last'} >= $obj->count |
| 244 | 0 | 0 | if --$$obj{'last'} < 0 |