| line |
true |
false |
branch |
|
214
|
3 |
24 |
unless (can_run($prog)) |
|
220
|
3 |
0 |
$flag ? : |
|
280
|
0 |
0 |
if $self->status->dist |
|
281
|
0 |
0 |
unless $self->status->dist |
|
312
|
0 |
0 |
unless $args = check($tmpl, \%hash) |
|
334
|
0 |
0 |
if (-e $pkg and -s _ and not $force) |
|
351
|
0 |
0 |
unless $mmflags =~ /$mmadd/ |
|
356
|
0 |
0 |
unless $buildflags =~ /$buildadd/ |
|
360
|
0 |
0 |
unless $dist_cpan->prepare(%hash) |
|
366
|
0 |
0 |
if ($fail) |
|
373
|
0 |
0 |
unless ($dist_cpan->create(%hash, 'prereq_format', 'CPANPLUS::Dist::Deb')) |
|
394
|
0 |
0 |
unless (-d $_) |
|
395
|
0 |
0 |
unless ($cb->_mkdir('dir', $_)) |
|
404
|
0 |
0 |
unless ($cb->_chdir('dir', $dist->status->builddir)) |
|
419
|
0 |
0 |
unless ($cb->_copy('file', $file, 'to', $orig)) |
|
429
|
0 |
0 |
scalar sub {
package CPANPLUS::Internals::Constants;
return unless my $dir = $_[0];
require File::Find;
my @files;
File::Find::find(sub {
push @files, $File::Find::name if $File::Find::name =~ /\.xs$/i;
}
, $dir);
return @files;
}
->($self->status->extract) ? : |
|
445
|
0 |
0 |
unless ($obj) |
|
453
|
0 |
0 |
if $obj->package_is_perl_core |
|
477
|
0 |
0 |
if ($$prereqs{$prereq}) |
|
481
|
0 |
0 |
if ($obj->installed_version) { } |
|
486
|
0 |
0 |
if ($obj->installed_version >= $obj->version) { } |
|
521
|
0 |
0 |
unless ($fh = 'FileHandle'->new(">$debreadme")) |
|
539
|
0 |
0 |
unless ($fh = 'FileHandle'->new(">$control")) |
|
547
|
0 |
0 |
scalar sub {
package CPANPLUS::Internals::Constants;
return unless my $dir = $_[0];
require File::Find;
my @files;
File::Find::find(sub {
push @files, $File::Find::name if $File::Find::name =~ /\.xs$/i;
}
, $dir);
return @files;
}
->($self->status->extract) ? : |
|
563
|
0 |
0 |
$$_[1] ? : |
|
573
|
0 |
0 |
if ($prefix) |
|
598
|
0 |
0 |
if ($has_xs) { } |
|
648
|
0 |
0 |
if $prefix |
|
672
|
0 |
0 |
if ($cb->_callbacks->munge_dist_metafile) |
|
689
|
0 |
0 |
unless ($fh = 'FileHandle'->new(">$compat")) |
|
708
|
0 |
0 |
unless ($fh = 'FileHandle'->new(">$changelog")) |
|
753
|
0 |
0 |
unless ($fh = 'FileHandle'->new(">$copyright_file")) |
|
763
|
0 |
0 |
$ENV{'DEBFULLMAIL'} ? : |
|
790
|
0 |
0 |
scalar sub {
package CPANPLUS::Internals::Constants;
return unless my $dir = $_[0];
require File::Find;
my @files;
File::Find::find(sub {
push @files, $File::Find::name if $File::Find::name =~ /\.xs$/i;
}
, $dir);
return @files;
}
->($self->status->extract) ? : |
|
796
|
0 |
0 |
unless ($fh = 'FileHandle'->new(">$rules_file")) |
|
837
|
0 |
0 |
if $self->status->dist |
|
838
|
0 |
0 |
unless $self->status->dist |
|
855
|
0 |
0 |
unless $args = check($tmpl, \%hash) |
|
859
|
0 |
0 |
unless ($dist->status->prepared) |
|
866
|
0 |
0 |
if ($dist->status->created and not $force) |
|
873
|
0 |
0 |
unless ($cb->_chdir('dir', $dist->status->builddir)) |
|
881
|
0 |
0 |
unless ($prog = sub {
;
}
->()) |
|
887
|
0 |
0 |
unless (scalar run('command', [$prog, ('-rfakeroot', '-uc', '-us', '-d'), '-i.s?[oa]'], 'verbose', $verbose, 'buffer', \$buffer)) |
|
907
|
0 |
0 |
unless (-e $tmpfile and -s _) |
|
915
|
0 |
0 |
if (my(@files) = glob('File::Spec'->catdir($dist->status->_tmp_output_dir, $dist->status->package_name) . '*')) { } |
|
925
|
0 |
0 |
unless ($cb->_move('file', $file, 'to', $to)) |
|
957
|
0 |
0 |
unless ($cb->_chdir('dir', $conf->_get_build('startdir'))) |
|
964
|
0 |
0 |
unless ($keep_source) |
|
989
|
0 |
0 |
if $self->status->dist |