| line |
true |
false |
branch |
|
52
|
48 |
8 |
if -e $args{$_} |
|
53
|
0 |
8 |
unless open my $fh, '>', $args{$_} |
|
57
|
1 |
13 |
unless exists $args{'source'} |
|
60
|
4 |
35 |
unless -e $args{$dir} |
|
65
|
3 |
10 |
unless $type |
|
78
|
1 |
12 |
unless $$source |
|
82
|
4 |
8 |
if ($$source =~ /\.(?:tar\.(?:gz|bz2)|tgz|tbz|zip)$/) |
|
83
|
1 |
3 |
if ($$source =~ s/^file://i or -f $$source) |
|
88
|
1 |
10 |
if $$source =~ s/^dir(?:ectory)?:(?!:\w+)//i |
|
90
|
0 |
10 |
if $$source =~ s/^(?:shipyard|shipwright)://i |
|
94
|
4 |
30 |
if ($$source =~ /^$type:(?!:\w+)/i) |
|
96
|
1 |
3 |
$type eq 'git' ? : |
|
100
|
1 |
5 |
if ($$source =~ m[^(//|svk:(?!:\w+))]i) |
|
105
|
0 |
5 |
if -d $$source |
|
110
|
2 |
3 |
if $$source =~ /:/ and not $$source =~ /::/ |
|
115
|
2 |
1 |
unless $$source =~ /\.(?:tar\.(?:gz|bz2)|tgz|tbz)$/ |
|
124
|
0 |
12 |
if ($$source =~ /^(file|dir(ectory)?|shipwright):~/i) |