| line |
true |
false |
branch |
|
43
|
0 |
0 |
if @_ |
|
60
|
0 |
0 |
ref $p ? : |
|
96
|
0 |
0 |
ref $pattern eq 'Regexp' ? : |
|
97
|
0 |
0 |
if $arg{'group'} |
|
123
|
0 |
0 |
if (@- == 1) { } |
|
135
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
137
|
0 |
0 |
if $opt->{'strict'} |
|
176
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
179
|
0 |
0 |
is_inside($flag) ? : |
|
180
|
0 |
0 |
$opt->{'strict'} ? : |
|
221
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
223
|
0 |
0 |
$option->{'destructive'} ? : |
|
224
|
0 |
0 |
unless ($option->{'nosort'}) |
|
225
|
0 |
0 |
@$a > 2 ? : |
|
|
0 |
0 |
unless $App::Greple::Regions::a->[0] <=> $App::Greple::Regions::b->[0] or $App::Greple::Regions::b->[1] <=> $App::Greple::Regions::a->[1] |
|
230
|
0 |
0 |
if @in |
|
234
|
0 |
0 |
if ($out[-1][1] > $top->[0]) { } |
|
|
0 |
0 |
elsif (not $nojoin and $out[-1][1] == $top->[0] and @$top < 3 || $out[-1][2] == $top->[2]) { } |
|
235
|
0 |
0 |
if $out[-1][1] < $top->[1] |
|
244
|
0 |
0 |
if $out[-1][1] < $top->[1] |
|
256
|
12 |
0 |
ref $_[0] eq 'HASH' ? : |
|
262
|
3 |
9 |
if $option->{'leave_empty'} |
|
272
|
0 |
0 |
if $border[-1] != $i |
|
275
|
0 |
0 |
if $border[-1] != length $_ |
|
280
|
0 |
0 |
if @_ < 2 |