| line |
true |
false |
branch |
|
25
|
3 |
44 |
if ($options->{'unicode_strings'}) |
|
33
|
9 |
53 |
if ($options->{'filename_only'}) { } |
|
43
|
21 |
41 |
if ($was eq $_) { } |
|
|
2 |
39 |
elsif (-e $_ and not $options->{'over_write'}) { } |
|
|
2 |
37 |
elsif ($options->{'no_action'}) { } |
|
|
36 |
1 |
elsif (CORE::rename $was, $_) { } |
|
45
|
0 |
2 |
if (/\s/u or $was =~ /\s/u) { } |
|
57
|
7 |
29 |
if $options->{'verbose'} |
|
73
|
3 |
3 |
if $options->{'verbose'} |
|
76
|
1 |
5 |
if $options->{'input_null'} |
|
84
|
21 |
4 |
if (ref $code) |
|
85
|
21 |
0 |
if ("HASH" eq ref $code) |
|
86
|
0 |
21 |
if (defined $verbose) |
|
94
|
0 |
21 |
unless ($code) |
|
103
|
25 |
0 |
unless (ref $code) |
|
104
|
25 |
0 |
if (my $eval = eval "sub {\n$code\n}\n") { } |
|
120
|
22 |
3 |
if (@$argv) { } |
|
126
|
41 |
12 |
if ref $$ref |
|
137
|
7 |
8 |
if ($_ eq ":config") |