| line |
true |
false |
branch |
|
38
|
1 |
0 |
@_ ? : |
|
62
|
1 |
0 |
unless ref $dir |
|
66
|
0 |
1 |
unless defined $d |
|
67
|
0 |
1 |
unless -d $d |
|
68
|
0 |
1 |
if $ALREADY{$d}++ |
|
84
|
0 |
1 |
$File::ConfigDir::Install::Config{'usevendorprefix'} ? : |
|
98
|
1 |
0 |
if $m =~ /(pure_perl_install :: all.*?^$)/ms |
|
99
|
1 |
0 |
if $m =~ /(pure_site_install :: all.*?^$)/ms |
|
100
|
1 |
0 |
if $m =~ /(pure_vendor_install :: all.*?^$)/ms |
|
106
|
1 |
0 |
if $m =~ s/(pure_perl_install :: all.*?^$)/$ppi/ms |
|
107
|
1 |
0 |
if $m =~ s/(pure_site_install :: all.*?^$)/$psi/ms |
|
108
|
1 |
0 |
if $m =~ s/(pure_vendor_install :: all.*?^$)/$pvi/ms |
|
119
|
0 |
0 |
if $m =~ /(pure_perl_install :: all.*?^$)/ms |
|
120
|
0 |
0 |
if $m =~ /(pure_site_install :: all.*?^$)/ms |
|
121
|
0 |
0 |
if $m =~ /(pure_vendor_install :: all.*?^$)/ms |
|
127
|
0 |
0 |
if $m =~ s/(pure_perl_install :: all.*?^$)/$ppi/ms |
|
128
|
0 |
0 |
if $m =~ s/(pure_site_install :: all.*?^$)/$psi/ms |
|
129
|
0 |
0 |
if $m =~ s/(pure_vendor_install :: all.*?^$)/$pvi/ms |
|
136
|
0 |
1 |
if defined $INC{'ExtUtils/MM_VMS.pm'} |
|
137
|
1 |
0 |
if defined $INC{'ExtUtils/MM_Unix.pm'} |
|
181
|
0 |
1 |
unless my $dh = 'IO::Dir'->new($dir) |
|
185
|
0 |
3 |
if $entry =~ /(~|,v|#)$/ |
|
187
|
1 |
2 |
if (-f $full) { } |
|
|
2 |
0 |
elsif (-d $full) { } |
|
188
|
0 |
1 |
if not $$def{'dotfiles'} and $entry =~ /^\./ |
|
192
|
0 |
2 |
if ($$def{'dotdirs'}) { } |
|
193
|
0 |
0 |
if $entry eq '.' or $entry eq '..' or $entry =~ /^\.(svn|git|cvs)$/ |
|
197
|
2 |
0 |
if $entry =~ /^\./ |