| line |
true |
false |
branch |
|
47
|
11 |
0 |
if @_ |
|
64
|
33 |
13 |
ref $p ? : |
|
100
|
194 |
18 |
ref $pattern eq 'Regexp' ? : |
|
101
|
12 |
200 |
if $arg{'group'} |
|
126
|
1 |
10 |
if (@- == 1) { } |
|
128
|
0 |
1 |
if $index |
|
133
|
9 |
7 |
if $index |
|
141
|
209 |
0 |
ref $_[0] eq 'HASH' ? : |
|
143
|
1 |
208 |
if $opt->{'strict'} |
|
182
|
13 |
0 |
ref $_[0] eq 'HASH' ? : |
|
185
|
11 |
2 |
is_inside($flag) ? : |
|
186
|
1 |
12 |
$opt->{'strict'} ? : |
|
227
|
411 |
0 |
ref $_[0] eq 'HASH' ? : |
|
229
|
411 |
0 |
$option->{'destructive'} ? : |
|
230
|
411 |
0 |
unless ($option->{'nosort'}) |
|
231
|
0 |
208 |
@$a > 2 ? : |
|
|
0 |
1397 |
unless $App::Greple::Regions::a->[0] <=> $App::Greple::Regions::b->[0] or $App::Greple::Regions::b->[1] <=> $App::Greple::Regions::a->[1] |
|
236
|
399 |
12 |
if @in |
|
240
|
209 |
1263 |
if ($out[-1][1] > $top->[0]) { } |
|
|
0 |
1263 |
elsif (not $nojoin and $out[-1][1] == $top->[0] and @$top < 3 || $out[-1][2] == $top->[2]) { } |
|
241
|
3 |
206 |
if $out[-1][1] < $top->[1] |
|
250
|
0 |
0 |
if $out[-1][1] < $top->[1] |
|
262
|
12 |
0 |
ref $_[0] eq 'HASH' ? : |
|
265
|
3 |
9 |
if $option->{'leave_empty'} |
|
275
|
3082 |
3256 |
if $border[-1] != $i |
|
278
|
121 |
6 |
if $border[-1] != length $_ |
|
283
|
0 |
0 |
if @_ < 2 |