| line |
true |
false |
branch |
|
14
|
0 |
6 |
ref $_[0] ? : |
|
27
|
0 |
6 |
unless my $str = shift() |
|
31
|
0 |
6 |
unless ($type and $action and $re) |
|
34
|
2 |
4 |
if ($action eq 'regex' or $type eq 'directory') |
|
40
|
0 |
6 |
if ($type eq 'directory' and $action ne 'contains') |
|
57
|
0 |
0 |
if (@_) |
|
58
|
0 |
0 |
ref $_[0] ? : |
|
65
|
0 |
6 |
unless my $file = shift() |
|
66
|
3 |
3 |
if (-d $file) { } |
|
76
|
0 |
3 |
unless my $dir = shift() |
|
79
|
0 |
3 |
if ($$opts{'strict'} and not -d $dir) |
|
85
|
0 |
3 |
if $debug |
|
88
|
0 |
3 |
if $$rule{'type'} eq 'filename' |
|
90
|
3 |
0 |
if $self->$method($dir, $rule, 1) |
|
98
|
0 |
3 |
unless my $file = shift() |
|
101
|
0 |
3 |
if ($$opts{'strict'} and -d $file) |
|
107
|
0 |
3 |
if $debug |
|
111
|
3 |
0 |
if $self->$method($file, $rule) |
|
122
|
0 |
1 |
if $debug |
|
123
|
0 |
1 |
if $debug |
|
125
|
1 |
0 |
if ($$rule{'action'} eq 'is') { } |
|
|
0 |
0 |
elsif ($$rule{'action'} eq 'contains') { } |
|
|
0 |
0 |
elsif ($$rule{'action'} eq 'regex') { } |
|
126
|
1 |
0 |
$$rule{'re'} eq $filename ? : |
|
129
|
0 |
0 |
if ($filename =~ /$$rule{'re'}/) |
|
135
|
0 |
0 |
if ($filename =~ /$regex/) |
|
141
|
0 |
1 |
if $debug |
|
152
|
0 |
2 |
if $debug |
|
153
|
0 |
2 |
if $debug |
|
155
|
1 |
1 |
if ($$rule{'action'} eq 'is') { } |
|
|
0 |
1 |
elsif ($$rule{'action'} eq 'contains') { } |
|
|
1 |
0 |
elsif ($$rule{'action'} eq 'regex') { } |
|
156
|
1 |
0 |
$is_dir ? : |
|
160
|
0 |
0 |
if ($dirname =~ /$$rule{'re'}/) |
|
166
|
1 |
0 |
if ($dirname =~ /$regex/) |
|
172
|
0 |
2 |
if $debug |
|
184
|
0 |
2 |
if $debug |
|
185
|
0 |
2 |
if $debug |
|
187
|
0 |
2 |
if ($$rule{'action'} eq 'is') { } |
|
|
2 |
0 |
elsif ($$rule{'action'} eq 'contains') { } |
|
|
0 |
0 |
elsif ($$rule{'action'} eq 'regex') { } |
|
191
|
2 |
0 |
if ($file =~ /$$rule{'re'}/) |
|
197
|
0 |
0 |
if ($file =~ /$regex/) |
|
203
|
0 |
2 |
if $debug |
|
215
|
1 |
2 |
if ($file =~ /$re/) |
|
222
|
0 |
1 |
if $debug |