| line |
true |
false |
branch |
|
38
|
0 |
10 |
unless defined $transform and defined $filelist |
|
47
|
9 |
1 |
unless ref $transform eq 'CODE' |
|
51
|
0 |
10 |
if $options->{'reverse'} |
|
58
|
0 |
10 |
if ($options->{'legacy'}) { } |
|
68
|
10 |
0 |
unless ($old eq $new) |
|
71
|
1 |
9 |
if ($options->{'createdirs'}) |
|
73
|
1 |
0 |
unless (-d $dir) |
|
74
|
0 |
1 |
if ($options->{'showonly'}) { } |
|
84
|
0 |
10 |
if ($options->{'verbose'} or $options->{'showonly'}) |
|
86
|
0 |
0 |
if $options->{'showonly'} |
|
90
|
2 |
8 |
if (not $options->{'overwrite'} and -e $new) |
|
97
|
1 |
7 |
if ($options->{'symlink'}) { } |
|
|
1 |
6 |
elsif ($options->{'link'}) { } |
|
106
|
7 |
1 |
if ($res == 1) { } |
|
112
|
1 |
0 |
$options->{'errno'} ? : |
|
129
|
2 |
7 |
if ($cmd =~ /^((?:\w|::)+)(?:=(\w+))?$/) |
|
132
|
2 |
0 |
unless (defined $sub) |
|
133
|
0 |
2 |
if ($pkg =~ /^(.*)::(\w+)$/) { } |
|
140
|
2 |
0 |
unless $pkg =~ /::/ |
|
141
|
0 |
2 |
if $options->{'trace'} |
|
144
|
0 |
2 |
if (eval "require $pkg") { } |
|
|
2 |
0 |
elsif (my $op = 'File::PerlMove::BuiltIn'->can($cmd)) { } |
|
145
|
0 |
0 |
if (my $op = $pkg->can($sub)) { } |
|
146
|
0 |
0 |
if $options->{'testing'} |
|
155
|
0 |
2 |
if $options->{'testing'} |
|
162
|
0 |
7 |
if ($cmd =~ /^:(.+):(.+):$/) |
|
163
|
0 |
0 |
if $options->{'testing'} |
|
169
|
0 |
7 |
if $options->{'testing'} |
|
171
|
0 |
7 |
if ($@) |