| line |
true |
false |
branch |
|
26
|
3 |
42 |
if ($options->{'unicode_strings'}) |
|
34
|
9 |
51 |
if ($options->{'filename_only'}) { } |
|
44
|
21 |
39 |
if ($was eq $_) { } |
|
|
2 |
37 |
elsif (-e $_ and not $options->{'over_write'}) { } |
|
|
2 |
35 |
elsif ($options->{'no_action'}) { } |
|
|
34 |
1 |
elsif (CORE::rename $was, $_) { } |
|
46
|
0 |
2 |
if (/\s/ or $was =~ /\s/) { } |
|
58
|
7 |
27 |
if $options->{'verbose'} |
|
74
|
3 |
3 |
if $options->{'verbose'} |
|
77
|
1 |
5 |
if $options->{'input_null'} |
|
85
|
19 |
4 |
if (ref $code) |
|
86
|
19 |
0 |
if ("HASH" eq ref $code) |
|
87
|
0 |
19 |
if (defined $verbose) |
|
95
|
0 |
19 |
unless ($code) |
|
104
|
23 |
0 |
unless (ref $code) |
|
105
|
23 |
0 |
if (my $eval = eval "sub {\n$code\n}\n") { } |
|
121
|
20 |
3 |
if (@$argv) { } |
|
127
|
39 |
12 |
if ref $$ref |
|
138
|
7 |
8 |
if ($_ eq ":config") |