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' |