| line |
true |
false |
branch |
|
41
|
0 |
1 |
unless (-l $link_path1) |
|
45
|
0 |
1 |
unless (-l $link_path2) |
|
51
|
0 |
1 |
unless (defined $dest_path1) |
|
56
|
0 |
1 |
unless (defined $dest_path2) |
|
61
|
0 |
1 |
if ("File::Spec"->file_name_is_absolute($dest_path1)) |
|
65
|
0 |
1 |
if ("File::Spec"->file_name_is_absolute($dest_path2)) |
|
75
|
0 |
1 |
if ($dest_path2 eq $new_dest_path2) |
|
79
|
0 |
1 |
unless (unlink $link_path2) |
|
83
|
0 |
1 |
unless (symlink $new_dest_path2, $link_path2) |
|
155
|
0 |
0 |
unless defined($symlink = $args{'symlink'}) |
|
156
|
0 |
0 |
-e _ ? : |
|
|
0 |
0 |
unless (-l $symlink) |
|
158
|
0 |
0 |
unless (-e $target) |
|
159
|
0 |
0 |
if (defined $args{'is_abs'}) |
|
161
|
0 |
0 |
if ($args{'is_abs'}) { } |
|
162
|
0 |
0 |
unless ("File::Spec"->file_name_is_absolute($target)) |
|
166
|
0 |
0 |
if ("File::Spec"->file_name_is_absolute($target)) |
|
171
|
0 |
0 |
if (defined $args{'target'}) |
|
175
|
0 |
0 |
unless ($wanted_abs_target eq $abs_target) |
|
180
|
0 |
0 |
if ($args{'ext_matches'}) |
|
183
|
0 |
0 |
unless defined $symlink_ext and defined $target_ext |
|
184
|
0 |
0 |
unless (lc $symlink_ext eq lc $target_ext) |
|
190
|
0 |
0 |
if ($args{'content_matches'}) |
|
193
|
0 |
0 |
unless (open my $fh, "<", $symlink) |
|
195
|
0 |
0 |
if $type |
|
196
|
0 |
0 |
if (defined $symlink_ext and @exts) { } |
|
|
0 |
0 |
elsif (defined $symlink_ext xor @exts) { } |
|
199
|
0 |
0 |
if (lc $ext eq lc $symlink_ext) |
|
201
|
0 |
0 |
unless ($found) |
|
205
|
0 |
0 |
if (defined $symlink_ext) { } |
|
217
|
0 |
0 |
if (@{$res->[2];}) |