| line |
true |
false |
branch |
|
56
|
0 |
8 |
if ($self->config->{'delegate_class'})
|
|
88
|
30 |
12 |
defined -s $file ? :
|
|
106
|
0 |
54 |
unless my $file = shift()
|
|
112
|
30 |
24 |
if (-s $test)
|
|
123
|
24 |
30 |
if ($file->dir eq "." or not $file->dir->is_absolute)
|
|
152
|
0 |
32 |
if $dir and $dir =~ m[/\.(svn|git)]
|
|
180
|
20 |
32 |
if $dir eq $f
|
|
182
|
0 |
32 |
unless &$filter_sub($root, $dir, $f)
|
|
192
|
12 |
20 |
if -f $f
|
|
261
|
0 |
0 |
unless my $file = shift()
|
|
262
|
0 |
0 |
unless my $rel_name = shift()
|
|
263
|
0 |
0 |
if ($rel_name eq 'dir') { }
|
|
292
|
0 |
3 |
unless ($SYMLINK_SUPPORTED)
|
|
300
|
0 |
3 |
unless (-r $other_file)
|
|
304
|
3 |
0 |
if ($rel_name eq 'dir') { }
|
|
307
|
0 |
3 |
if ($other_file->dir eq $file->dir)
|
|
308
|
0 |
0 |
if ($overwrite)
|
|
317
|
0 |
3 |
unless (symlink "$file", "$link")
|
|
358
|
0 |
3 |
unless ($SYMLINK_SUPPORTED)
|
|
366
|
0 |
3 |
unless (-r $other_file)
|
|
370
|
3 |
0 |
if ($rel_name eq 'dir') { }
|
|
374
|
0 |
3 |
unless (-l $link)
|
|
378
|
0 |
3 |
unless unlink $link
|