| line |
true |
false |
branch |
|
28
|
6 |
0 |
@_ ? : |
|
29
|
3 |
3 |
@_ ? : |
|
30
|
0 |
6 |
unless (defined $type and $type =~ /^(module|dist)$/) |
|
35
|
0 |
6 |
if ($type eq "dist" and @_) |
|
49
|
2 |
0 |
@_ ? : |
|
50
|
2 |
0 |
@_ ? : |
|
51
|
0 |
2 |
unless (defined $type and $type =~ /^(module|dist)$/) |
|
56
|
0 |
2 |
if ($type eq "dist" and @_) |
|
83
|
4 |
4 |
if ($def->{'type'} =~ /module$/) |
|
85
|
0 |
4 |
unless (defined $module) |
|
99
|
7 |
1 |
unless ref $dir |
|
102
|
2 |
6 |
if $def->{'type'} =~ /^delete-/ |
|
105
|
0 |
6 |
unless ($del or defined $d and -d $d) |
|
108
|
0 |
9 |
if (not $del and $ALREADY{$d}++) |
|
139
|
1 |
8 |
if ($def->{'type'} eq 'delete-dist') { } |
|
|
2 |
6 |
elsif ($def->{'type'} eq 'delete-module') { } |
|
|
3 |
3 |
elsif ($def->{'type'} eq 'dist') { } |
|
153
|
3 |
6 |
if ($def->{'type'} =~ /^delete-/) { } |
|
202
|
0 |
10 |
unless my $dh = "IO::Dir"->new($dir) |
|
205
|
0 |
54 |
if $entry =~ /(~|,v|#)$/ |
|
207
|
25 |
29 |
if (-f $full) { } |
|
|
29 |
0 |
elsif (-d $full) { } |
|
208
|
5 |
20 |
if not $def->{'dotfiles'} and $entry =~ /^\./ |
|
212
|
8 |
21 |
if ($def->{'dotdirs'}) { } |
|
213
|
3 |
2 |
if $entry eq "." or $entry eq ".." or $entry =~ /^\.(svn|git|cvs)$/ |
|
217
|
19 |
2 |
if $entry =~ /^\./ |
|
229
|
4 |
0 |
defined $_[0] && !ref($_[0]) && $_[0] =~ /^[^\W\d]\w*(?:::\w+)*$/s ? : |