| line |
true |
false |
branch |
|
23
|
2 |
0 |
unless caller |
|
39
|
0 |
2 |
unless defined $settings |
|
41
|
0 |
2 |
if exists $settings->{'error_fh'} |
|
42
|
0 |
2 |
if exists $settings->{'output_fh'} |
|
47
|
0 |
2 |
unless defined $opts |
|
48
|
0 |
2 |
unless (@files) |
|
55
|
2 |
0 |
if (grep {$^O eq $_;} @unix_like and in_path('cp')) { } |
|
69
|
0 |
0 |
if (-d $source) |
|
75
|
0 |
0 |
if (-d $destination) |
|
79
|
0 |
0 |
if $opts->{'v'} |
|
80
|
0 |
0 |
if (-e $catdst and $opts->{'i'} and not $opts->{'f'}) |
|
82
|
0 |
0 |
unless $answer =~ /\A\s*y/i |
|
84
|
0 |
0 |
if (File::Copy::copy($source, $catdst) == 0) |
|
89
|
0 |
0 |
$err ? : |
|
99
|
2 |
12 |
if -x $path |
|
117
|
0 |
2 |
unless (&Getopt::Long::GetOptionsFromArray(\@args, "f", \$opts{'f'}, "i", \$opts{'i'}, "n", \$opts{'n'}, "p", \$opts{'p'}, "v", \$opts{'v'})) |