| line |
true |
false |
branch |
|
22
|
0 |
1 |
unless $debug =~ /^[0-9]+$/ |
|
56
|
0 |
0 |
unless defined $persona |
|
59
|
0 |
0 |
unless open my $handle, '<', $path |
|
63
|
0 |
0 |
unless ($persona) |
|
70
|
0 |
0 |
wantarray ? : |
|
84
|
0 |
0 |
unless defined $line |
|
87
|
0 |
0 |
if ($done) { } |
|
|
0 |
0 |
elsif ($line =~ /^__(?:DATA|END)__$/) { } |
|
103
|
0 |
0 |
if ($line =~ /^#PERSONA\s*(.*)/) |
|
107
|
0 |
0 |
if (not $rest) { } |
|
110
|
0 |
0 |
unless ($active) |
|
126
|
0 |
0 |
if $rest =~ /[^\w\s\(\)\|!]/ |
|
134
|
0 |
0 |
unless $value{$1} |
|
138
|
0 |
0 |
if $@ |
|
142
|
0 |
0 |
if (not $ok) { } |
|
|
0 |
0 |
elsif (not $active) { } |
|
162
|
0 |
0 |
unless $active |
|
165
|
0 |
0 |
if ($line =~ /^\s*package\s+([\w:]+)\s*;/) |
|
168
|
0 |
0 |
unless exists &$sub |
|
177
|
0 |
0 |
wantarray ? : |
|
194
|
0 |
1 |
if @attr == 1 |
|
205
|
0 |
0 |
if ($key eq 'only_for') { } |
|
|
0 |
0 |
elsif ($key eq 'persona') { } |
|
213
|
0 |
0 |
if defined $process_persona and $value ne $process_persona |
|
227
|
1 |
0 |
unless (defined $process_persona) |
|
231
|
1 |
0 |
unless defined $process_persona |
|
234
|
0 |
1 |
if $process_persona =~ s/\W//gs |
|
239
|
0 |
1 |
unless eval "sub main::PERSONA () { '${process_persona}' }; 1" |
|
242
|
0 |
1 |
if ($process_persona) |
|
248
|
0 |
0 |
if (not +() = caller 3 and (caller 0)[1] ne '-e' and (caller 2)[3] eq '(eval)') |
|
270
|
0 |
1 |
if @huh |
|
273
|
0 |
1 |
if (@only_for_new) |
|
280
|
0 |
0 |
if (my $ref = ref $only_for) { } |
|
|
0 |
0 |
elsif ($only_for eq '*') { } |
|
281
|
0 |
0 |
if $ref ne 'Regexp' |
|
310
|
0 |
1 |
unless exists &$sub |
|
330
|
0 |
0 |
unless ($all or &first(sub {
$file =~ /$_/;
}
, @only_for)) |
|
337
|
0 |
0 |
unless defined $first |
|
341
|
0 |
0 |
unless ($path) |
|
350
|
0 |
0 |
unless $source and $skipped |
|
361
|
0 |
0 |
unless open my $require, '<', $source |