| line |
true |
false |
branch |
|
51
|
2 |
4 |
if ($safe and $options->{'preserve_perl_env'} and $safe->reval('$PerlEnv_LOADED')) |
|
53
|
2 |
0 |
if $options->{'debug_mode'} |
|
56
|
29 |
0 |
if $options->{'debug_mode'} |
|
59
|
14 |
15 |
if ($options->{'use_safe'} > 1) { } |
|
66
|
0 |
29 |
if ($@) |
|
76
|
2 |
0 |
if ($options->{'preserve_perl_env'} and $App::PTP::SafeEnv::PerlEnv_LOADED) |
|
77
|
2 |
0 |
if $options->{'debug_mode'} |
|
80
|
119 |
0 |
if $options->{'debug_mode'} |
|
91
|
0 |
119 |
if ($@) |
|
108
|
132 |
20 |
if (ref $file_name) { } |
|
115
|
31 |
121 |
if ($options->{'use_safe'} > 0) { } |
|
127
|
152 |
0 |
if ($options->{'debug_mode'}) |
|
131
|
3 |
149 |
if @$content > 10 |
|
132
|
132 |
20 |
if (ref $file_name) { } |
|
137
|
9 |
143 |
$missing_final_separator ? : |
|
147
|
204 |
0 |
if ($options->{'debug_mode'}) |
|
158
|
0 |
12 |
if ($modes->{'quote_regex'}) |
|
161
|
0 |
12 |
unless ($modes->{'case_sensitive'}) |
|
174
|
0 |
12 |
if ($modes->{'regex_engine'} ne 'perl') { } |
|
183
|
0 |
0 |
if ($@) |
|
195
|
7 |
68 |
if ($modes->{'quote_regex'}) { } |
|
206
|
1 |
55 |
unless ($modes->{'case_sensitive'}) |
|
210
|
0 |
56 |
if ($modes->{'regex_engine'} ne 'perl') |
|
219
|
6 |
6 |
unless ($modes->{'quote_regex'}) |
|
221
|
0 |
6 |
if $@ |
|
230
|
37 |
0 |
if $options->{'debug_mode'} |
|
239
|
141 |
77 |
if (not defined $content->[$i]) { } |
|
|
0 |
77 |
elsif (not defined $markers->[$i]) { } |
|
251
|
19 |
0 |
if ($options->{'debug_mode'}) |
|
256
|
18 |
1 |
$modes->{'global_match'} ? : |
|
257
|
19 |
0 |
if ($options->{'debug_mode'}) |
|
271
|
221 |
3 |
unless $@ |
|
273
|
0 |
3 |
if ($modes->{'fatal_error'}) { } |
|
283
|
0 |
153 |
if ($options->{'debug_mode'} > 1) |
|
286
|
61 |
92 |
if ($options->{'use_safe'} > 0) { } |
|
299
|
0 |
123 |
if $@ |
|
316
|
3 |
206 |
if (warn_or_die_if_needed("Perl code failed in $scmd", $modes)) { } |
|
330
|
19 |
43 |
if ($cmd eq 'perl') { } |
|
|
30 |
13 |
elsif ($cmd eq 'n') { } |
|
|
6 |
7 |
elsif ($cmd eq 'filter') { } |
|
|
7 |
0 |
elsif ($cmd eq 'mark-line') { } |
|
336
|
12 |
11 |
if (not $result[$i] xor $modes->{'inverse_match'}) |
|
347
|
12 |
197 |
if (not defined $content->[$i]) { } |
|
|
6 |
191 |
elsif (not defined $markers->[$i]) { } |
|
363
|
1 |
20 |
if $cmd eq 'M' |
|
365
|
2 |
19 |
if ($@) |
|
378
|
3 |
0 |
if $options->{'debug_mode'} |
|
379
|
0 |
3 |
if (not defined eval_in_safe_env("do '${abs_path}';", $options)) |
|
380
|
0 |
0 |
if ($@) { } |
|
|
0 |
0 |
elsif ($!) { } |
|
390
|
0 |
10 |
if (ref $modes->{'comparator'} eq 'CODE') { } |
|
|
8 |
2 |
elsif (ref $modes->{'comparator'} eq 'SCALAR') { } |
|
394
|
6 |
2 |
if (${$modes->{'comparator'};} eq 'default') { } |
|
|
1 |
1 |
elsif (${$modes->{'comparator'};} eq 'numeric') { } |
|
|
1 |
0 |
elsif (${$modes->{'comparator'};} eq 'locale') { } |
|
408
|
0 |
2 |
if ref $modes->{'comparator'} |
|
419
|
0 |
6 |
if ($apply_on_markers eq 'none') { } |
|
|
0 |
6 |
elsif ($apply_on_markers eq 'same') { } |
|
|
6 |
0 |
elsif ($apply_on_markers eq 'together') { } |
|
434
|
1 |
3 |
unless $len |
|
441
|
1 |
3 |
unless $len |
|
442
|
1 |
3 |
if $len < -@$content |
|
454
|
6 |
6 |
if ($markers_temp[$i]) |
|
470
|
3 |
0 |
unless ($modes->{'quote_regex'}) |
|
475
|
6 |
6 |
unless $markers_temp[$i] |
|
477
|
0 |
6 |
if ($modes->{'quote_regex'}) { } |
|
485
|
0 |
6 |
if warn_or_die_if_needed('String interpolation failed in --insert-marked', $modes) |
|
492
|
0 |
6 |
if $target < $added |
|
493
|
0 |
6 |
if $target > @$content |
|
515
|
2 |
3 |
if (ref $modes->{'file_name_ref'} eq 'SCALAR') { } |
|
|
3 |
0 |
elsif (ref $modes->{'file_name_ref'} eq 'REF' and ref ${$modes->{'file_name_ref'};} eq 'SCALAR') { } |
|
524
|
2 |
3 |
if ($replace_all) { } |
|
526
|
1 |
1 |
if (@$content) |
|
545
|
5 |
0 |
if ($options->{'debug_mode'}) |
|
548
|
19 |
5 |
if $_ |
|
555
|
19 |
5 |
$_ ? : |
|
568
|
0 |
0 |
if (@$content > @$markers) |
|
578
|
2 |
5 |
if ($action eq 'transpose') { } |
|
|
4 |
1 |
elsif ($action eq 'pivot') { } |
|
|
1 |
0 |
elsif ($action eq 'anti-pivot') { } |
|
610
|
0 |
6 |
unless $command eq 'shell' |
|
614
|
0 |
6 |
unless open my $pipe, '|-', $arg |
|
618
|
0 |
6 |
unless close $pipe |