blib/lib/PAUSE/Users/UserIterator.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 14 | 14 | 100.0 |
line | true | false | branch |
---|---|---|---|
23 | 2 | 13972 | if (not defined $self->_fh) { } |
35 | 14000 | 97435 | if (/ |
40 | 164 | 97271 | unless $inuser |
42 | 83299 | 13972 | if (m[<([a-zA-Z0-6_]+)>(.*?)\1>]u) |
47 | 14000 | 69299 | if ($field eq 'type') |
48 | 28 | 13972 | if $value eq 'list' |
55 | 13972 | 69299 | if (m[]u) |