| blib/lib/Python/Serialise/Pickle.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 29 | 40 | 72.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 177 | 11 | 23 | 12 | defined $opts{'ignore_end_marker'} and $opts{'ignore_end_marker'} == 1 |
| 219 | 16 | 22 | 13 | defined $opts{'ignore_end_marker'} and $opts{'ignore_end_marker'} == 1 |
| 523 | 0 | 69 | 23 | defined $ref and $ref ne '' |
| line | l | !l | condition |
|---|---|---|---|
| 76 | 18 | 0 | shift() || die("You must pass a file\n") |
| 79 | 18 | 0 | 'IO::File'->new($file) || die("Couldn't open file\n") |
| 101 | 47 | 0 | $_get_handlers{$id} || die("We have no handler to deal with '${id}'\n") |
| 318 | 5 | 13 | $opts{'terminator'} || '' |
| 362 | 0 | 9 | $opts{'last_tuple_marker'} || '.' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 99 | 0 | 0 | 47 | not defined $id or $id eq '' |
| 239 | 5 | 0 | 166 | ord $1 < 33 || ord $1 > 126 |
| 287 | 13 | 0 | 58 | $id eq '.' or $id eq 's' |
| 13 | 6 | 52 | $id eq '.' or $id eq 's' or $id eq 'a' | |
| 370 | 5 | 0 | 34 | $id eq '.' or $id eq 'a' |
| 5 | 1 | 33 | $id eq '.' or $id eq 'a' or $id eq 's' | |
| 424 | 1 | 0 | 5 | $key_id eq 's' or $key_id eq 'a' |