| line |
true |
false |
branch |
|
72
|
2 |
0 |
unless (defined $CPAN::Inject::CHECK_OWNER) |
|
75
|
0 |
2 |
unless (-d $root) |
|
84
|
2 |
0 |
defined $owner ? : |
|
139
|
0 |
5 |
unless (&Params::Util::_STRING($sources)) |
|
142
|
0 |
5 |
unless (-d $sources) |
|
161
|
0 |
0 |
unless (-d $parent) |
|
164
|
0 |
0 |
unless (-r $parent and -x $parent) |
|
171
|
0 |
5 |
unless ($< == &File::stat::stat($sources)->uid) |
|
176
|
3 |
2 |
unless $self->author |
|
177
|
0 |
5 |
unless (_AUTHOR($self->author)) |
|
210
|
1 |
0 |
if (defined $CPAN::HandleConfig::VERSION) { } |
|
218
|
1 |
0 |
if (defined $$CPAN::Config{'keep_source_where'}) { } |
|
|
0 |
0 |
elsif (defined $$CPAN::Config{'cpan_home'}) { } |
|
290
|
0 |
1 |
unless ($from_file and -f $from_file and -r $from_file) |
|
295
|
0 |
1 |
unless my $name = File::Basename::fileparse($from_file) |
|
308
|
0 |
1 |
if (my $e = $@) |
|
314
|
0 |
1 |
unless File::Copy::copy($from_file, $to_file) |
|
316
|
0 |
1 |
unless chmod 0644, $to_file |
|
325
|
0 |
1 |
if (my $e = $@) |
|
329
|
0 |
1 |
unless chmod 0644, 'File::Spec'->catfile($to_dir, 'CHECKSUMS') |
|
355
|
0 |
1 |
unless my $name = File::Basename::fileparse($params{'dist'}) |
|
371
|
0 |
1 |
if (my $e = $@) |
|
463
|
0 |
3 |
unless my $file = File::Basename::fileparse(shift()) |
|
476
|
5 |
0 |
&Params::Util::_STRING($_[0]) && $_[0] =~ /^[A-Z]{2,}$/ ? : |