| 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
|
101 |
0 |
if $options->{'debug_mode'} |
|
91
|
0 |
101 |
if ($@) |
|
108
|
115 |
19 |
if (ref $file_name) { } |
|
115
|
31 |
103 |
if ($options->{'use_safe'} > 0) { } |
|
127
|
134 |
0 |
if ($options->{'debug_mode'}) |
|
131
|
2 |
132 |
if @$content > 10 |
|
132
|
115 |
19 |
if (ref $file_name) { } |
|
137
|
8 |
126 |
$missing_final_separator ? : |
|
147
|
181 |
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
|
37 |
0 |
if $options->{'debug_mode'} |
|
228
|
141 |
77 |
if (not defined $content->[$i]) { } |
|
|
0 |
77 |
elsif (not defined $markers->[$i]) { } |
|
240
|
19 |
0 |
if ($options->{'debug_mode'}) |
|
245
|
18 |
1 |
$modes->{'global_match'} ? : |
|
246
|
19 |
0 |
if ($options->{'debug_mode'}) |
|
260
|
212 |
3 |
unless $@ |
|
262
|
0 |
3 |
if ($modes->{'fatal_error'}) { } |
|
272
|
0 |
143 |
if ($options->{'debug_mode'} > 1) |
|
275
|
61 |
82 |
if ($options->{'use_safe'} > 0) { } |
|
288
|
0 |
120 |
if $@ |
|
305
|
3 |
197 |
if (warn_or_die_if_needed("Perl code failed in $scmd", $modes)) { } |
|
319
|
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') { } |
|
325
|
12 |
11 |
if (not $result[$i] xor $modes->{'inverse_match'}) |
|
336
|
12 |
188 |
if (not defined $content->[$i]) { } |
|
|
6 |
182 |
elsif (not defined $markers->[$i]) { } |
|
349
|
2 |
17 |
if ($@) |
|
361
|
3 |
0 |
if $options->{'debug_mode'} |
|
362
|
0 |
3 |
if (not defined eval_in_safe_env("do '${abs_path}';", $options)) |
|
363
|
0 |
0 |
if ($@) { } |
|
|
0 |
0 |
elsif ($!) { } |
|
373
|
0 |
8 |
if (ref $modes->{'comparator'} eq 'CODE') { } |
|
|
6 |
2 |
elsif (ref $modes->{'comparator'} eq 'SCALAR') { } |
|
377
|
4 |
2 |
if (${$modes->{'comparator'};} eq 'default') { } |
|
|
1 |
1 |
elsif (${$modes->{'comparator'};} eq 'numeric') { } |
|
|
1 |
0 |
elsif (${$modes->{'comparator'};} eq 'locale') { } |
|
391
|
0 |
2 |
if ref $modes->{'comparator'} |
|
403
|
0 |
1 |
if ($apply_on_markers) { } |
|
412
|
1 |
3 |
unless $len |
|
419
|
1 |
3 |
unless $len |
|
420
|
1 |
3 |
if $len < -@$content |
|
432
|
6 |
6 |
if ($markers_temp[$i]) |
|
448
|
3 |
0 |
unless ($modes->{'quote_regex'}) |
|
453
|
6 |
6 |
unless $markers_temp[$i] |
|
455
|
0 |
6 |
if ($modes->{'quote_regex'}) { } |
|
463
|
0 |
6 |
if warn_or_die_if_needed('String interpolation failed in --insert-marked', $modes) |
|
470
|
0 |
6 |
if $target < $added |
|
471
|
0 |
6 |
if $target > @$content |
|
493
|
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') { } |
|
502
|
0 |
2 |
if ($replace_all) { } |
|
520
|
5 |
0 |
if ($options->{'debug_mode'}) |
|
523
|
19 |
5 |
if $_ |
|
530
|
19 |
5 |
$_ ? : |
|
543
|
0 |
0 |
if (@$content > @$markers) |
|
553
|
2 |
4 |
if ($action eq 'transpose') { } |
|
|
3 |
1 |
elsif ($action eq 'pivot') { } |
|
|
1 |
0 |
elsif ($action eq 'anti-pivot') { } |
|
576
|
1 |
5 |
unless ($modes->{'quote_regex'}) |
|
578
|
0 |
1 |
if $@ |