| line |
true |
false |
branch |
|
35
|
54 |
1 |
if defined $class |
|
38
|
54 |
1 |
if defined $ttl |
|
44
|
33 |
27 |
defined $_ ? : |
|
|
2 |
60 |
if (ref $_) { } |
|
45
|
27 |
4 |
scalar @value == 1 ? : |
|
58
|
1 |
25 |
if (ref $_) { } |
|
115
|
1 |
5 |
unless ($version == 0) |
|
128
|
2 |
3 |
scalar @format ? : |
|
151
|
79 |
72 |
$_ > 512 ? : |
|
164
|
222 |
7 |
$_ < 16 ? : |
|
179
|
39 |
33 |
unless defined $self->{'index'} |
|
186
|
75 |
79 |
unless scalar @value |
|
188
|
1 |
77 |
$@ ? : |
|
198
|
2 |
97 |
if (ref $_) { } |
|
199
|
51 |
48 |
unless wantarray |
|
206
|
48 |
4 |
if (length $value) { } |
|
207
|
39 |
9 |
if $structured |
|
208
|
10 |
38 |
unless scalar @value |
|
209
|
1 |
47 |
if $@ |
|
211
|
2 |
2 |
$structured ? : |
|
226
|
7 |
72 |
unless scalar keys %$options |
|
228
|
1 |
78 |
unless defined $arg |
|
231
|
49 |
29 |
if (ref $arg eq "HASH") |
|
235
|
28 |
21 |
if defined $arg->{'BASE16'} |
|
236
|
2 |
47 |
if defined $length and $length == 0 |
|
237
|
35 |
14 |
if defined $octets |
|
243
|
38 |
5 |
if length $arg and $package->can("_compose") |
|
245
|
1 |
4 |
if ref $arg |
|
265
|
1 |
114 |
unless defined $value |
|
267
|
48 |
66 |
if (ref $value eq "HASH") |
|
270
|
9 |
39 |
if defined $_ |
|
278
|
4 |
62 |
if (ref $value eq "ARRAY") |
|
286
|
30 |
32 |
if &Scalar::Util::isdual($value) |
|
288
|
16 |
16 |
unless (utf8::is_utf8($value)) |
|
289
|
1 |
15 |
if /^-?\d+$/ |
|
290
|
1 |
14 |
if /^-?\d+\.\d+$/ |
|
291
|
1 |
13 |
if /^-?\d+(\.\d+)?e[+-]\d\d?$/i |
|
305
|
1 |
3 |
if (ref $_) { } |
|
315
|
3 |
16 |
if (ref $_) { } |
|
336
|
3 |
6 |
if (ref $_) { } |
|
358
|
1 |
3 |
if (ref $_) { } |
|
375
|
1 |
2 |
if /HASH/ |
|
376
|
1 |
2 |
if /ARRAY/ |
|
391
|
1 |
3 |
if (ref $_) { } |
|
404
|
1 |
11 |
if (ref $_) { } |
|
411
|
2 |
1 |
if $argument =~ /^\000*$/ |
|
419
|
1 |
1 |
if (ref $_) { } |
|
432
|
1 |
6 |
if (ref $_) { } |
|
443
|
3 |
3 |
ref $arg[0] ? : |
|
451
|
2 |
2 |
defined $error ? : |
|
454
|
2 |
2 |
unless /^[\[\{]/ |
|
457
|
45 |
22 |
if defined $_ |
|
459
|
1 |
1 |
if ref $value |
|
468
|
1 |
4 |
if (ref $_) { } |
|
485
|
1 |
2 |
if /HASH/ |
|
486
|
2 |
1 |
if /ARRAY/ |
|
488
|
2 |
1 |
scalar @argument ? : |