Branch Coverage

blib/lib/File/CodeSearch.pm
Criterion Covered Total %
branch 40 64 62.5


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)