| line |
true |
false |
branch |
|
34
|
0 |
0 |
if ($$arg_ref{'_stdout'}) |
|
35
|
0 |
0 |
if (ref $$arg_ref{'_stdout'} ne 'IO::Scalar') |
|
40
|
0 |
0 |
if ($$arg_ref{'_stderr'}) |
|
41
|
0 |
0 |
if (ref $$arg_ref{'_stderr'} ne 'IO::Scalar') |
|
47
|
0 |
0 |
if ($method eq 'create') { } |
|
59
|
0 |
0 |
if ($method ne 'create') |
|
68
|
0 |
0 |
if (defined $arg_ref and ref $arg_ref ne 'HASH') |
|
75
|
0 |
0 |
unless (grep {/^$arg$/;} @allowed_args) |
|
79
|
0 |
0 |
if (@unknown_args) |
|
83
|
0 |
0 |
if ($$arg_ref{'method'}) |
|
84
|
0 |
0 |
if ($$arg_ref{'method'} ne 'create' and $$arg_ref{'method'} ne 'new') |
|
100
|
0 |
0 |
if ($$arg_ref{'topdir'} and $$arg_ref{'topdir'} ne '.') |
|
103
|
0 |
0 |
if (defined $topdir and length $topdir and not -d $topdir) |
|
110
|
0 |
0 |
if ($$arg_ref{'check_files'}) |
|
113
|
0 |
0 |
if (ref $check_files ne 'Regexp') |
|
118
|
0 |
0 |
if ($$arg_ref{'ignore_files'}) |
|
123
|
0 |
0 |
unless opendir my $topdir_dh, $topdir |
|
127
|
0 |
0 |
if $dir_entry =~ /^\./msx |
|
131
|
0 |
0 |
if (-d $resolved_entry) |
|
132
|
0 |
0 |
if ($$arg_ref{'recurse'}) |
|
142
|
0 |
0 |
if ($dir_entry =~ /$check_files/ and not $dir_entry =~ /$ignore_files/) |
|
147
|
0 |
0 |
unless closedir $topdir_dh |
|
149
|
0 |
0 |
wantarray ? : |
|
155
|
0 |
0 |
unless (-s $file) |
|
159
|
0 |
0 |
unless open my $file_fh, '<', $file |
|
166
|
0 |
0 |
unless close $file_fh |
|
175
|
0 |
0 |
if ($file_contents =~ /^[^#]*\bTest::More\b[^#]*\btests\b/mx or $file_contents =~ /^[^#]*\bplan\b[^#]*\btests\b/mx) { } |
|
|
0 |
0 |
elsif ($file_contents =~ /^[^#]*\bTest::More\b[^#]*\bno_plan\b/mx or $file_contents =~ /^[^#]*\bplan\b[^#]*\bno_plan\b/mx) { } |