Branch Coverage

blib/lib/App/Grepl.pm
Criterion Covered Total %
branch 61 74 82.4


line true false branch
193 8 2 unless (@{$self->look_for;})
197 1 9 if (my(@keys) = sort(keys %$arg_for))
201 3 3 unless ($self->dir or @{$self->files;})
204 1 8 if ($self->dir and @{$self->files;})
228 9 0 if (my $class_for = $class->handler_for($token_name)->{'class'})
236 14 0 if (my $to_string = $class->handler_for($token_name)->{'stringify'})
257 27 19 unless @_
259 11 8 unless (defined $dir)
263 1 7 unless (-d $dir)
285 15 13 unless (@_)
286 1 14 wantarray ? :
289 7 6 unless (defined $files)
294 4 2 unless 'ARRAY' eq (reftype $files || '')
296 2 5 unless (-e $file and -r _)
318 15 19 unless (@_)
319 5 10 wantarray ? :
322 8 11 unless (defined $look_for)
327 2 9 unless 'ARRAY' eq (reftype $look_for || '')
329 1 19 unless ($self->handler_for($look_for))
350 5 12 unless @_
354 1 11 if (my $error = $@)
375 3 12 unless @_
393 16 10 unless @_
429 0 4 unless (defined wantarray)
437 0 5 unless $found
438 0 5 if (not defined wantarray) { }
445 4 0 wantarray ? :
451 0 0 if $self->filename_only
467 0 5 unless ($doc)
475 1 8 unless $doc->find($class)
479 3 11 unless $result =~ /$pattern/
482 1 10 if ($self->filename_only)
487 6 2 if @results
489 0 4 unless $found->have_results
495 3 1 if (my $dir = $self->dir) { }
1 0 elsif (my $files = $self->files) { }
506 0 0 unless $self->warnings