| line |
true |
false |
branch |
|
287
|
1 |
34 |
unless (scalar @params) |
|
299
|
2 |
33 |
if ($options{'version'}) { } |
|
|
3 |
30 |
elsif ($options{'help'}) { } |
|
352
|
1 |
29 |
if ($options{'ask'} and $options{'pretend'}) |
|
363
|
36 |
32 |
if ($param =~ /^([stprm]r?)(.+?)([egims]+)?$/s) |
|
370
|
34 |
2 |
if ($guts =~ m[^/(.+?)(?
|
|
|
1 |
1 |
elsif ($guts =~ /^{(.+?)}({(.*?)})??$/) { } |
|
|
1 |
0 |
elsif ($guts =~ /^\[(.+?)\](\[(.*?)\])?$/) { } |
|
380
|
36 |
0 |
if ($command_spec{$command} and $is_regexp) |
|
388
|
24 |
12 |
if ($expression) |
|
405
|
27 |
5 |
if (-f $param) { } |
|
|
5 |
0 |
elsif ($options{'recursive'} and -d $param) { } |
|
416
|
1 |
29 |
if ($failures) |
|
429
|
1 |
42 |
unless ($continue) |
|
453
|
1 |
35 |
if ($App::Fed::EVAL_ERROR or not $ok) |
|
455
|
1 |
0 |
if ($App::Fed::EVAL_ERROR) |
|
476
|
17 |
11 |
if (-f $dir . '/' . $item) |
|
482
|
11 |
0 |
if (-d $dir . '/' . $item) |
|
498
|
6 |
37 |
if ($options{'verbose'}) |
|
514
|
42 |
7 |
if ($something_was_done_here) |
|
520
|
3 |
40 |
if ($options{'changed-only'} and not $something_was_done) |
|
530
|
9 |
31 |
if ($options{'prefix'} or $options{'suffix'}) |
|
534
|
9 |
31 |
if ($file ne $file_out) |
|
543
|
2 |
38 |
if ($options{'diff'}) |
|
565
|
1 |
1 |
unless ($has_changes) |
|
571
|
5 |
35 |
if ($has_changes and $options{'ask'}) |
|
586
|
2 |
3 |
if ($char eq 'n') |
|
590
|
1 |
2 |
if ($char eq 'q') |
|
594
|
1 |
1 |
if ($char eq 'a') |
|
600
|
1 |
0 |
if ($char eq 'y') |
|
607
|
1 |
36 |
if ($options{'pretend'} and not $has_changes) { } |
|
|
1 |
35 |
elsif ($options{'pretend'}) { } |
|
619
|
2 |
33 |
if ($file ne $file_out and $options{'move'}) { } |
|
636
|
10 |
27 |
if ($push_newline) |
|
648
|
8 |
1 |
if ($prefix) |
|
652
|
1 |
8 |
if ($suffix) |
|
662
|
15 |
0 |
unless ($omit) |
|
727
|
2 |
1 |
if (scalar @matches) |
|
748
|
113 |
22 |
unless ($options{'verbose'}) |