| blib/lib/App/Greple/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 6 | 0.0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 54 | 0 | 0 | 0 | $obj->{'HASH'}{$_} //= do { if (my $prepare = $obj->{'prepare'}) { foreach my $sub (@$prepare) { $_ = $sub->call; }; }; s/\n+//gu if $obj->{'ignore_newline'}; s/\s+//gu if $obj->{'ignore_space'}; s/\pS+//gu if $obj->{'ignore_symbol'}; s/\pP+//gu if $obj->{'ignore_punct'}; $_ = lc $_ if $obj->{'ignore_case'}; $obj->{'HASH'}{$_} //= do { my $list = $obj->{'LIST'}; push @$list, $_; $#{$list;} } } |
| 65 | 0 | 0 | 0 | $obj->{'HASH'}{$_} //= do { my $list = $obj->{'LIST'}; push @$list, $_; $#{$list;} } |