| line |
true |
false |
branch |
|
16
|
0 |
42 |
unless @c |
|
22
|
57 |
82 |
if (/ \G ( 0 | [1-9] \d* ) : /cgx) { } |
|
25
|
2 |
55 |
if $len > length($_) - pos($_) |
|
31
|
0 |
0 |
$len < 200 ? : |
|
|
0 |
55 |
if $DEBUG |
|
37
|
4 |
78 |
if (/ \G -? 0? \d+ : /cgx) |
|
47
|
0 |
113 |
if $DEBUG |
|
49
|
33 |
80 |
if defined $max_depth |
|
51
|
30 |
77 |
if (defined(my $str = _bdecode_string())) { } |
|
|
22 |
55 |
elsif (/ \G i /cgx) { } |
|
|
24 |
31 |
elsif (/ \G l /cgx) { } |
|
|
25 |
6 |
elsif (/ \G d /cgx) { } |
|
55
|
1 |
21 |
if / \G \z /cgx |
|
57
|
7 |
14 |
unless / \G ( 0 | -? [1-9] \d* ) e /cgx |
|
60
|
0 |
14 |
if $DEBUG |
|
64
|
0 |
24 |
if $DEBUG |
|
66
|
4 |
20 |
if defined $max_depth and $max_depth < 0 |
|
71
|
0 |
27 |
if $DEBUG |
|
77
|
0 |
25 |
if $DEBUG |
|
79
|
3 |
22 |
if defined $max_depth and $max_depth < 0 |
|
85
|
0 |
28 |
if $DEBUG |
|
87
|
2 |
26 |
if / \G \z /cgx |
|
91
|
1 |
25 |
unless defined $key |
|
94
|
1 |
24 |
if exists $hash{$key} |
|
96
|
1 |
21 |
if not $do_lenient_decode and defined $last_key and $key lt $last_key |
|
99
|
1 |
22 |
if / \G e /cgx |
|
108
|
4 |
2 |
/ \G \z /cgx ? : |
|
117
|
5 |
26 |
unless $_ =~ / \G \z /cgx |
|
128
|
11 |
6 |
/\A (?: 0 | -? [1-9] \d* ) \z/x ? : |
|
|
4 |
0 |
'HASH' eq ref $_ ? : |
|
|
8 |
4 |
'ARRAY' eq ref $_ ? : |
|
|
1 |
12 |
'SCALAR' eq ref $_ ? : |
|
|
17 |
13 |
!ref($_) ? : |
|
|
5 |
30 |
!defined($_) ? : |
|
134
|
7 |
14 |
@_ == 2 ? : |
|
135
|
1 |
20 |
unless defined $undef_mode |
|
136
|
1 |
3 |
'die' eq $undef_mode ? : |
|
|
1 |
4 |
'num' eq $undef_mode ? : |
|
|
16 |
5 |
'str' eq $undef_mode ? : |
|
141
|
0 |
18 |
if @_ != 1 |