| line |
true |
false |
branch |
|
35
|
2 |
0 |
if (@_ == 1 and UNIVERSAL::isa($_[0], 'HASH')) { } |
|
|
0 |
0 |
elsif (@_ == 2) { } |
|
38
|
0 |
2 |
if (scalar @keys != 1) |
|
47
|
0 |
2 |
unless ($pair[0] =~ /[a-z_-]{1,32}/i) |
|
55
|
6 |
2 |
unless (ref $datum) |
|
56
|
0 |
6 |
if $datum =~ /^\d+$/ |
|
57
|
6 |
0 |
unless ($datum =~ /[\000-\037"%\x7F\xFF]/) |
|
65
|
0 |
0 |
length $opt1 <= length $opt2 ? : |
|
67
|
0 |
2 |
if ++$$history{$datum} > 1 |
|
68
|
2 |
0 |
if (UNIVERSAL::isa($datum, 'HASH')) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($datum, 'ARRAY')) { } |
|
72
|
0 |
8 |
unless ($key =~ /[a-z_-]{1,32}/i) |
|
75
|
6 |
2 |
if ++$count > 1 |
|
76
|
2 |
6 |
if ($val eq "\000" or not defined $val) |
|
88
|
0 |
0 |
if ++$count > 1 |
|
101
|
0 |
1 |
if $rem |
|
110
|
2 |
5 |
if (s/^\}//) |
|
113
|
0 |
5 |
unless (s/^([A-Za-z-_]{1,32})(:?)\s*//) |
|
117
|
1 |
4 |
unless ($2) |
|
131
|
0 |
0 |
if (s/^\]//) |
|
143
|
1 |
3 |
if (s/^\{//) |
|
147
|
0 |
3 |
if (s/^\[//) |
|
151
|
0 |
3 |
if (s/^(\d+)(?![^}\]\t ])//) |
|
154
|
3 |
0 |
if (s/^\"(.*?)\"//) |
|
159
|
0 |
0 |
if (s/^%([0-9A-F]+)//i) |
|
161
|
0 |
0 |
if length($hex) % 2 |