| line |
true |
false |
branch |
|
69
|
0 |
0 |
if $_[0] eq 'output' or $_[0] eq 'write' or $_[0] eq 'log' |
|
85
|
1 |
1 |
if ($foreach =~ /^\s*(.*?)\s+in\s+(.*?)\s*$/) |
|
91
|
0 |
1 |
if ($foreach =~ /^\s*(.*?)\s+from\s+(.*?)\s*$/) |
|
98
|
1 |
0 |
unless ($foreach =~ /\s/) |
|
116
|
0 |
2 |
if ($keyword eq 'error') |
|
124
|
2 |
0 |
if ($keyword eq 'foreach') { } |
|
127
|
1 |
1 |
if (not $target and $datasource->is('data')) |
|
133
|
0 |
2 |
if ($type eq 'text') { } |
|
|
2 |
0 |
elsif ($type eq 'data') { } |
|
135
|
0 |
0 |
if (@vars) { } |
|
137
|
0 |
0 |
if @vars |
|
138
|
0 |
0 |
if @last_vars |
|
162
|
0 |
0 |
if ($vars[0] eq '*') { } |
|
192
|
0 |
1 |
if ($flag eq '"') { } |
|
224
|
5 |
15 |
if (@_) |
|
249
|
2 |
84 |
if ($mode) { } |
|
251
|
1 |
1 |
if ($leader =~ /^[\s<]*$/) { } |
|
259
|
1 |
83 |
if ($line =~ /^\s*<
|
|
272
|
0 |
20 |
if ($mode) |
|
277
|
0 |
20 |
if $@ |
|
278
|
0 |
20 |
if $@ |
|
280
|
19 |
1 |
if (wantarray) { } |
|
291
|
2 |
23 |
if $self->is('sub') |
|
300
|
1 |
27 |
if $$self{'built'} |
|
303
|
15 |
12 |
unless (@_) |
|
310
|
0 |
27 |
if ($self->code) { } |
|
|
19 |
8 |
elsif ($self->body) { } |
|
335
|
0 |
8 |
$child_code ? : |
|
340
|
4 |
23 |
$self->is('on') ? : |
|
341
|
4 |
15 |
if ($$self{'callable'} and $is_event || $self->is('on') && $self->name) |
|
345
|
27 |
0 |
unless $$self{'payload'} |