| 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
|
109 |
0 |
if $options->{'debug_mode'} |
|
91
|
0 |
109 |
if ($@) |
|
108
|
123 |
19 |
if (ref $file_name) { } |
|
115
|
31 |
111 |
if ($options->{'use_safe'} > 0) { } |
|
127
|
142 |
0 |
if ($options->{'debug_mode'}) |
|
131
|
2 |
140 |
if @$content > 10 |
|
132
|
123 |
19 |
if (ref $file_name) { } |
|
137
|
9 |
133 |
$missing_final_separator ? : |
|
147
|
189 |
0 |
if ($options->{'debug_mode'}) |
|
158
|
0 |
11 |
if ($modes->{'quote_regex'}) |
|
161
|
0 |
11 |
unless ($modes->{'case_sensitive'}) |
|
174
|
0 |
11 |
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
|
212 |
3 |
unless $@ |
|
273
|
0 |
3 |
if ($modes->{'fatal_error'}) { } |
|
283
|
0 |
149 |
if ($options->{'debug_mode'} > 1) |
|
286
|
61 |
88 |
if ($options->{'use_safe'} > 0) { } |
|
299
|
0 |
120 |
if $@ |
|
316
|
3 |
197 |
if (warn_or_die_if_needed("Perl code failed in $scmd", $modes)) { } |
|
330
|
18 |
41 |
if ($cmd eq 'perl') { } |
|
|
28 |
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 |
188 |
if (not defined $content->[$i]) { } |
|
|
6 |
182 |
elsif (not defined $markers->[$i]) { } |
|
360
|
2 |
18 |
if ($@) |
|
372
|
3 |
0 |
if $options->{'debug_mode'} |
|
373
|
0 |
3 |
if (not defined eval_in_safe_env("do '${abs_path}';", $options)) |
|
374
|
0 |
0 |
if ($@) { } |
|
|
0 |
0 |
elsif ($!) { } |
|
384
|
0 |
8 |
if (ref $modes->{'comparator'} eq 'CODE') { } |
|
|
6 |
2 |
elsif (ref $modes->{'comparator'} eq 'SCALAR') { } |
|
388
|
4 |
2 |
if (${$modes->{'comparator'};} eq 'default') { } |
|
|
1 |
1 |
elsif (${$modes->{'comparator'};} eq 'numeric') { } |
|
|
1 |
0 |
elsif (${$modes->{'comparator'};} eq 'locale') { } |
|
402
|
0 |
2 |
if ref $modes->{'comparator'} |
|
414
|
0 |
1 |
if ($apply_on_markers) { } |
|
423
|
1 |
3 |
unless $len |
|
430
|
1 |
3 |
unless $len |
|
431
|
1 |
3 |
if $len < -@$content |
|
443
|
6 |
6 |
if ($markers_temp[$i]) |
|
459
|
3 |
0 |
unless ($modes->{'quote_regex'}) |
|
464
|
6 |
6 |
unless $markers_temp[$i] |
|
466
|
0 |
6 |
if ($modes->{'quote_regex'}) { } |
|
474
|
0 |
6 |
if warn_or_die_if_needed('String interpolation failed in --insert-marked', $modes) |
|
481
|
0 |
6 |
if $target < $added |
|
482
|
0 |
6 |
if $target > @$content |
|
504
|
2 |
0 |
if (ref $modes->{'file_name_ref'} eq 'SCALAR') { } |
|
|
0 |
0 |
elsif (ref $modes->{'file_name_ref'} eq 'REF' and ref ${$modes->{'file_name_ref'};} eq 'SCALAR') { } |
|
513
|
0 |
2 |
if ($replace_all) { } |
|
531
|
5 |
0 |
if ($options->{'debug_mode'}) |
|
534
|
19 |
5 |
if $_ |
|
541
|
19 |
5 |
$_ ? : |
|
554
|
0 |
0 |
if (@$content > @$markers) |
|
564
|
2 |
4 |
if ($action eq 'transpose') { } |
|
|
3 |
1 |
elsif ($action eq 'pivot') { } |
|
|
1 |
0 |
elsif ($action eq 'anti-pivot') { } |
|
596
|
0 |
6 |
unless $command eq 'shell' |
|
600
|
0 |
6 |
unless open my $pipe, '|-', $arg |
|
602
|
0 |
6 |
unless close $pipe |