| blib/lib/App/BoolFindGrep/Grep.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 26 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 54 | 0 | 0 | unless defined $self->match_expr |
| 55 | 0 | 0 | unless %{$self->patterns;} |
| 60 | 0 | 0 | unless -e $file |
| 61 | 0 | 0 | unless -f $file |
| 62 | 0 | 0 | unless -r $file |
| 63 | 0 | 0 | if (my $fh = 'IO::File'->new($file, 'r')) { } |
| 85 | 5 | 1 | if ($string =~ /$re/u) |
| 97 | 0 | 5 | if $self->line_regexp and $self->word_regexp |
| 101 | 1 | 4 | if ($self->glob_regexp) { } |
| 105 | 1 | 3 | if $self->fixed_strings |
| 107 | 1 | 3 | if ($self->line_regexp) { } |
| 1 | 2 | elsif ($self->word_regexp) { } | |
| 115 | 1 | 4 | $self->ignore_case ? : |