| line |
true |
false |
branch |
|
21
|
1 |
2 |
ref $_[0] ? : |
|
24
|
2 |
1 |
if ($args{'json'}) { } |
|
28
|
1 |
0 |
if defined $args{'expiration'} |
|
30
|
1 |
0 |
unless $args{'conditions'} |
|
40
|
1 |
3 |
if (@_) |
|
42
|
1 |
0 |
if ($time and $time =~ /\A \d+ \z/msx) |
|
49
|
1 |
0 |
$time ? : |
|
58
|
1 |
9 |
if (@_) |
|
59
|
1 |
0 |
scalar @_ == 1 ? : |
|
68
|
0 |
5 |
substr($_[0], 0, 1) eq '$' ? : |
|
99
|
6 |
10 |
if (my(@captures) = $string =~ /$regex/) |
|
101
|
6 |
0 |
if defined $result |
|
111
|
0 |
6 |
ref $condition ? : |
|
118
|
0 |
0 |
unless ref $condition |
|
122
|
0 |
0 |
if (@$condition != @$_) { } |
|
127
|
0 |
0 |
if $keep = $$condition[$i] ne $$_[$i] |
|
137
|
0 |
1 |
if ref $_[0] |
|
143
|
0 |
4 |
if ref $_[0] |
|
149
|
0 |
1 |
if ref $_[0] |
|
157
|
0 |
2 |
unless defined $params{'expiration'} |
|
176
|
0 |
2 |
unless substr($json, 0, 1) eq '{' |
|
182
|
12 |
2 |
if (ref $_ eq 'ARRAY') { } |