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 |