| blib/lib/XML/SAX/PurePerl/Reader.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 18 | 44.4 |
| line | true | false | branch |
|---|---|---|---|
| 44 | 0 | 0 | if (ref $thing and UNIVERSAL::isa($thing, 'IO::Handle')) |
| 48 | 0 | 0 | if (tied $thing) { } |
| 51 | 0 | 0 | if defined &{"${class}::TIEHANDLE";} |
| 59 | 0 | 0 | if ($ioref) |
| 63 | 0 | 0 | if ($thing =~ / |
| 82 | 105 | 24520 | if (length $$self[1] < $min_length) |
| 91 | 3005 | 1 | if (substr($data, 0, 1) eq $char) |
| 100 | 22 | 3 | if @_ |
| 106 | 22 | 3 | if @_ |