| line |
true |
false |
branch |
|
19
|
2 |
27 |
unless defined $dist_name |
|
20
|
2 |
25 |
unless $dist_name =~ /^[A-Za-z0-9_][A-Za-z0-9_-]*$/ |
|
35
|
2 |
4 |
unless defined $source_dir or defined $dist_name |
|
36
|
1 |
5 |
unless defined $source_dir |
|
37
|
1 |
4 |
unless -d $source_dir |
|
46
|
0 |
2 |
unless chdir $source_dir |
|
49
|
4 |
4 |
unless -f $_ |
|
66
|
0 |
4 |
unless File::Copy::cp($from, $to) |
|
75
|
6 |
3 |
if (-e $fn) { } |
|
78
|
0 |
6 |
unless open $fh, '<', $fn |
|
82
|
0 |
6 |
if $@ |
|
96
|
1 |
7 |
unless defined $dist_name and defined $one |
|
97
|
3 |
5 |
if (defined $two) { } |
|
107
|
0 |
5 |
unless ref $config eq 'HASH' |
|
119
|
0 |
5 |
unless open $fh, '>', $fn |