| line |
true |
false |
branch |
|
97
|
0 |
10 |
unless -d $dir and -r $dir and -x $dir
|
|
102
|
40 |
10 |
if $_ ne '.'
|
|
104
|
3 |
7 |
if ($self->breadth) { }
|
|
|
3 |
4 |
elsif ($self->depth) { }
|
|
112
|
0 |
10 |
$dir eq '.' ? :
|
|
116
|
0 |
30 |
unless $self->files->file_ok("$dir$file")
|
|
117
|
0 |
30 |
if $self->limit and $self->found >= $self->limit
|
|
119
|
0 |
30 |
if (-l "$dir$file")
|
|
120
|
0 |
0 |
unless $self->files->symlinks
|
|
126
|
0 |
0 |
if $self->links->{$real}++
|
|
128
|
6 |
24 |
if (-d "$dir$file") { }
|
|
129
|
6 |
0 |
if ($self->recurse)
|
|
150
|
1 |
3 |
-d $a && -f $b ? :
|
|
|
0 |
4 |
-f $a && -d $b ? :
|
|
156
|
1 |
3 |
-d $a && -f $b ? :
|
|
|
0 |
4 |
-f $a && -d $b ? :
|
|
164
|
0 |
24 |
unless &File::CodeSearch::open(my $fh, '<', $file)
|
|
180
|
0 |
4508 |
if ($self->regex->isa('File::CodeSearch::Replacer'))
|
|
183
|
1219 |
3289 |
if (not defined $found) { }
|
|
|
3289 |
0 |
elsif ($found) { }
|
|
185
|
9 |
1210 |
if @before > $before_max + 1
|
|
189
|
3289 |
0 |
if (@after > $after_max)
|
|
194
|
0 |
4508 |
if @{$self->regex->sub_not_matches;} and $self->regex->sub_not_match
|
|
196
|
1196 |
3312 |
unless $self->regex->match($line)
|
|
199
|
3289 |
23 |
if $args{'last_line_no'} and $fh->input_line_number - $args{'last_line_no'} > $after_max - 1
|
|
201
|
0 |
3312 |
if (@{$self->regex->sub_matches;}) { }
|
|
207
|
0 |
3312 |
if $self->limit and $self->found >= $self->limit
|
|
215
|
0 |
24 |
if (@{$self->regex->sub_matches;} and $self->regex->sub_match)
|
|
220
|
0 |
0 |
if $self->limit and $self->found >= $self->limit
|
|
225
|
11 |
0 |
if ($post or @after and !@{$self->regex->sub_matches;} || $self->regex->sub_match)
|
|
235
|
11 |
0 |
if $args{'last_line_no'} and $fh->input_line_number - $args{'last_line_no'} > $after_max - 1
|
|
247
|
1 |
1 |
unless ($self->quiet)
|