| line |
true |
false |
branch |
|
57
|
0 |
11 |
if defined $self->files_delim and not defined $self->files_from |
|
58
|
0 |
11 |
if defined $self->files_from and defined $self->file_expr |
|
61
|
0 |
0 |
if defined $self->files_from and @{$self->directory;} != 1 and $self->directory->[0] ne '.' |
|
64
|
0 |
11 |
if (defined $self->files_from) { } |
|
77
|
0 |
0 |
$self->files_from =~ /\A(?:-|stdin)\z/iu ? : |
|
84
|
0 |
0 |
unless -f $file |
|
94
|
0 |
11 |
unless (defined $self->file_expr) |
|
95
|
0 |
0 |
if -f $_ |
|
102
|
3960 |
11 |
if (-f $_) |
|
103
|
3960 |
0 |
if (%{$self->patterns;}) |
|
107
|
3120 |
840 |
if /$re/u |
|
122
|
3 |
8 |
if ($_ eq 'literal') { } |
|
|
5 |
3 |
elsif ($_ eq 'glob') { } |
|
127
|
0 |
11 |
$self->find_ignore_case == 1 ? : |