| line |
true |
false |
branch |
|
29
|
6 |
0 |
@_ ? : |
|
30
|
3 |
3 |
@_ ? : |
|
31
|
0 |
6 |
unless (defined $type and $type =~ /^(module|dist)$/) |
|
36
|
0 |
6 |
if ($type eq 'dist' and @_) |
|
50
|
2 |
0 |
@_ ? : |
|
51
|
2 |
0 |
@_ ? : |
|
52
|
0 |
2 |
unless (defined $type and $type =~ /^(module|dist)$/) |
|
57
|
0 |
2 |
if ($type eq 'dist' and @_) |
|
84
|
4 |
4 |
if ($def->{'type'} =~ /module$/) |
|
86
|
0 |
4 |
unless (defined $module) |
|
100
|
7 |
1 |
unless ref $dir |
|
103
|
2 |
6 |
if $def->{'type'} =~ /^delete-/ |
|
106
|
0 |
6 |
unless ($del or defined $d and -d $d) |
|
109
|
0 |
9 |
if (not $del and $ALREADY{$d}++) |
|
140
|
1 |
8 |
if ($def->{'type'} eq 'delete-dist') { } |
|
|
2 |
6 |
elsif ($def->{'type'} eq 'delete-module') { } |
|
|
3 |
3 |
elsif ($def->{'type'} eq 'dist') { } |
|
154
|
3 |
6 |
if ($def->{'type'} =~ /^delete-/) { } |
|
203
|
0 |
10 |
unless my $dh = 'IO::Dir'->new($dir) |
|
206
|
0 |
54 |
if $entry =~ /(~|,v|#)$/ |
|
208
|
25 |
29 |
if (-f $full) { } |
|
|
29 |
0 |
elsif (-d $full) { } |
|
209
|
5 |
20 |
if not $def->{'dotfiles'} and $entry =~ /^\./ |
|
213
|
8 |
21 |
if ($def->{'dotdirs'}) { } |
|
214
|
3 |
2 |
if $entry eq '.' or $entry eq '..' or $entry =~ /^\.(svn|git|cvs)$/ |
|
218
|
19 |
2 |
if $entry =~ /^\./ |
|
230
|
4 |
0 |
defined $_[0] && !ref($_[0]) && $_[0] =~ /^[^\W\d]\w*(?:::\w+)*$/s ? : |