| line |
true |
false |
branch |
|
82
|
19 |
61 |
if exists $$args{'input'} |
|
108
|
100 |
42 |
unless shift() |
|
111
|
42 |
100 |
if exists $opts{'strict_checking'} |
|
115
|
42 |
100 |
if exists $opts{'checksum'} |
|
118
|
42 |
100 |
if exists $opts{'input'} |
|
121
|
1 |
141 |
unless $self->message_loaded |
|
125
|
126 |
15 |
$self->get_strict_checking ? : |
|
128
|
123 |
18 |
if (not $module or $module eq 'unpack') |
|
154
|
26 |
43 |
if (not ref $input) { } |
|
|
26 |
17 |
elsif (ref $input eq 'ARRAY') { } |
|
|
13 |
4 |
elsif (reftype $input eq 'GLOB') { } |
|
174
|
2 |
2 |
unless (blessed $input) |
|
178
|
1 |
1 |
if (overload::Method($input, '""')) { } |
|
|
0 |
1 |
elsif (overload::Method($input, '<>')) { } |
|
277
|
141 |
1 |
defined $self->get_header ? : |
|
290
|
104 |
18 |
if not $checksum or $checksum eq 'unpack' |
|
293
|
0 |
18 |
if $@ |
|
323
|
93 |
48 |
if (defined $headers{'message-id'}) { } |
|
328
|
154 |
38 |
unless exists $headers{$h} |
|
334
|
29 |
112 |
unless $extracted_headers |
|
357
|
21 |
105 |
if defined $body |