| line |
true |
false |
branch |
|
35
|
87 |
1 |
if defined $class |
|
38
|
87 |
1 |
if defined $ttl |
|
114
|
1 |
4 |
unless ($version == 0) |
|
127
|
1 |
3 |
scalar @format ? : |
|
150
|
126 |
75 |
$_ > 512 ? : |
|
163
|
288 |
7 |
$_ < 16 ? : |
|
178
|
4 |
105 |
defined $self->{'index'} ? : |
|
185
|
66 |
70 |
unless scalar @value |
|
187
|
1 |
68 |
$@ ? : |
|
198
|
45 |
41 |
unless wantarray |
|
201
|
32 |
9 |
if ($package->can("_decompose")) |
|
202
|
1 |
31 |
unless length $payload |
|
204
|
30 |
1 |
if scalar @structure |
|
206
|
1 |
9 |
if $@ |
|
207
|
8 |
2 |
length $payload ? : |
|
217
|
7 |
63 |
unless scalar keys %$options |
|
219
|
1 |
69 |
unless defined $arg |
|
222
|
44 |
25 |
if (ref $arg eq "HASH") |
|
226
|
26 |
18 |
if defined $arg->{'BASE16'} |
|
227
|
1 |
43 |
if defined $length and $length == 0 |
|
228
|
31 |
13 |
if defined $octets |
|
234
|
34 |
4 |
if length $arg and $package->can("_compose") |
|
236
|
1 |
3 |
if ref $arg |
|
257
|
1 |
88 |
unless defined $value |
|
259
|
36 |
52 |
if (ref $value eq "HASH") |
|
262
|
7 |
29 |
if defined $_ |
|
270
|
4 |
48 |
if (ref $value eq "ARRAY") |
|
278
|
22 |
26 |
if &Scalar::Util::isdual($value) |
|
280
|
16 |
10 |
unless (utf8::is_utf8($value)) |
|
281
|
1 |
15 |
if /^-?\d+$/ |
|
282
|
1 |
14 |
if /^-?\d+\.\d+$/ |
|
283
|
1 |
13 |
if /^-?\d+(\.\d+)?e[+-]\d\d?$/i |
|
297
|
1 |
3 |
ref $_ ? : |
|
307
|
3 |
16 |
ref $_ ? : |
|
328
|
3 |
6 |
ref $_ ? : |
|
350
|
1 |
3 |
ref $_ ? : |
|
367
|
1 |
2 |
if /HASH/ |
|
368
|
1 |
2 |
if /ARRAY/ |
|
383
|
1 |
3 |
ref $_ ? : |
|
396
|
1 |
11 |
ref $_ ? : |
|
403
|
2 |
1 |
if $argument =~ /^\000*$/ |
|
411
|
1 |
1 |
ref $_ ? : |
|
424
|
1 |
6 |
ref $_ ? : |
|
435
|
3 |
3 |
ref $arg[0] ? : |
|
443
|
2 |
2 |
defined $error ? : |
|
446
|
2 |
2 |
unless /^[\[\{]/ |
|
449
|
45 |
22 |
if defined $_ |
|
451
|
1 |
1 |
if ref $value |
|
461
|
1 |
1 |
ref $_ ? : |