| line |
true |
false |
branch |
|
40
|
0 |
1 |
unless (-l $link_path1) |
|
44
|
0 |
1 |
unless (-l $link_path2) |
|
50
|
0 |
1 |
unless (defined $dest_path1) |
|
55
|
0 |
1 |
unless (defined $dest_path2) |
|
60
|
0 |
1 |
if ("File::Spec"->file_name_is_absolute($dest_path1)) |
|
64
|
0 |
1 |
if ("File::Spec"->file_name_is_absolute($dest_path2)) |
|
74
|
0 |
1 |
if ($dest_path2 eq $new_dest_path2) |
|
78
|
0 |
1 |
unless (unlink $link_path2) |
|
82
|
0 |
1 |
unless (symlink $new_dest_path2, $link_path2) |
|
94
|
0 |
0 |
unless defined($symlink = $args{'symlink'}) |
|
95
|
0 |
0 |
-e _ ? : |
|
|
0 |
0 |
unless (-l $symlink) |
|
97
|
0 |
0 |
unless (-e $target) |
|
98
|
0 |
0 |
if (defined $args{'is_abs'}) |
|
100
|
0 |
0 |
if ($args{'is_abs'}) { } |
|
101
|
0 |
0 |
unless ("File::Spec"->file_name_is_absolute($target)) |
|
105
|
0 |
0 |
if ("File::Spec"->file_name_is_absolute($target)) |
|
110
|
0 |
0 |
if (defined $args{'target'}) |
|
114
|
0 |
0 |
unless ($wanted_abs_target eq $abs_target) |
|
119
|
0 |
0 |
if ($args{'ext_matches'}) |
|
122
|
0 |
0 |
unless defined $symlink_ext and defined $target_ext |
|
123
|
0 |
0 |
unless (lc $symlink_ext eq lc $target_ext) |
|
129
|
0 |
0 |
if ($args{'content_matches'}) |
|
132
|
0 |
0 |
unless (open my $fh, "<", $symlink) |
|
134
|
0 |
0 |
if $type |
|
135
|
0 |
0 |
if (defined $symlink_ext and @exts) { } |
|
|
0 |
0 |
elsif (defined $symlink_ext xor @exts) { } |
|
138
|
0 |
0 |
if (lc $ext eq lc $symlink_ext) |
|
140
|
0 |
0 |
unless ($found) |
|
144
|
0 |
0 |
if (defined $symlink_ext) { } |
|
156
|
0 |
0 |
if (@{$res->[2];}) |