| line |
true |
false |
branch |
|
56
|
8 |
9 |
if ($@) |
|
66
|
4 |
4 |
if ($near eq '') { } |
|
75
|
3 |
5 |
if $data =~ /\G \z/gx |
|
101
|
45 |
72 |
if ($state == 0) { } |
|
|
72 |
0 |
elsif ($state == 1) { } |
|
102
|
9 |
36 |
if ($_[0] =~ /\G \z/cgx) { } |
|
|
19 |
17 |
elsif ($_[0] =~ /\G test_name (?=\W)/cgx) { } |
|
111
|
19 |
0 |
if ($_[0] =~ /\G $reHS* = $reHS* (?: \n $reHS*)?/cgx) |
|
114
|
0 |
19 |
unless defined $$test{'test_name'} |
|
121
|
11 |
1 |
if (defined $name) { } |
|
128
|
17 |
55 |
if ($_[0] =~ /\G end_test (?=\W)/cgx) { } |
|
135
|
53 |
2 |
if (defined $name) { } |
|
154
|
2 |
62 |
if (exists $$href{$name}) { } |
|
155
|
2 |
0 |
if ref $$href{$name} and ref $$href{$name} eq 'ARRAY' |
|
166
|
69 |
3 |
if ($_[0] =~ /\G ([a-zA-Z_]+) # param name
$reHS* = $reHS* (?: \n $reHS*)? # = (and optional space chars)
/cgx) { } |
|
175
|
0 |
64 |
unless defined $value |
|
181
|
41 |
203 |
if ($_[0] =~ /\G \(/cgx) { } |
|
202
|
40 |
154 |
if $_[0] =~ /\G \)/cgx |
|
206
|
1 |
153 |
unless defined $value |
|
211
|
21 |
132 |
if ($_[0] =~ /\G $reHS* => $reHS* /cgx) |
|
215
|
0 |
21 |
unless defined $value |
|
232
|
64 |
158 |
if ($_[0] =~ /\G (['"])/cgx) { } |
|
|
12 |
146 |
elsif ($_[0] =~ /\G \{/cgx) { } |
|
237
|
2 |
62 |
if $extracted eq '' |
|
240
|
50 |
12 |
if ($delim eq q['] or not $extracted =~ /[\$\@\%]/) { } |
|
246
|
0 |
50 |
if $@ |
|
255
|
0 |
12 |
if $@ |
|
262
|
1 |
11 |
if $extracted eq '' |
|
268
|
1 |
10 |
if $@ |
|
305
|
1 |
8 |
if $param eq 'test_name' |
|
330
|
8 |
30 |
if (UNIVERSAL::isa($value, 'ARRAY')) { } |
|
349
|
16 |
14 |
if ($scalar =~ /[()'"{}]/ or $scalar =~ /=>/) { } |