Branch Coverage

blib/lib/Perl5/Dist/Backcompat.pm
Criterion Covered Total %
branch 0 186 0.0


line true false branch
129 0 0 if (defined $params and ref $params ne "HASH")
143 0 0 unless $valid_params{$p}
145 0 0 if (@invalid_params)
150 0 0 unless $params->{'perl_workdir'}
154 0 0 defined $params->{$p} ? :
165 0 0 unless -d $data->{'path_to_perls'}
167 0 0 unless -d $data->{'tarball_dir'}
204 0 0 unless chdir $self->{'perl_workdir'}
208 0 0 unless $describe
211 0 0 unless chdir $currdir
214 0 0 unless -f $manifest
227 0 0 if ($Maintainers::Modules{$m}{'FILES'} =~ m[dist/]u)
237 0 0 unless -f $self->{'distro_metadata_file'}
242 0 0 unless open my $IN, "<", $self->{'distro_metadata_file'}
245 0 0 if $l =~ /^(\#|\s*$)/u
257 0 0 unless close $IN
268 0 0 unless -f $self->{'older_perls_file'}
360 0 0 unless (exists $self->{'distmodules'}{$m}{'DISTRIBUTION'})
374 0 0 unless ($makefile_pl_status{$d})
378 0 0 unless defined $tar
383 0 0 if ($hasmpl) { }
387 0 0 unless $hasmpl
398 0 0 unless $f =~ m[^dist/]u
400 0 0 if ($path =~ m[/(.*?)/Makefile\.PL$]u)
403 0 0 unless $makefile_pl_status{$distro}
412 0 0 if ($File::Find::name =~ /$pattern/u)
414 0 0 if (not $makefile_pl_status{$distro})
428 0 0 unless exists $self->{'distmodules'}{$d}{'FILES'}
430 0 0 unless (exists $makefile_pl_status{$distname})
472 0 0 if ($self->{'verbose'})
522 0 0 if (defined $distros) { }
523 0 0 unless ref $distros eq "ARRAY"
532 0 0 scalar @{$distros;} ? :
533 0 0 if ($self->{'verbose'})
571 0 0 unless open my $IN1, "<", $self->{'older_perls_file'}
574 0 0 if $l =~ /^(\#|\s*$)/u
577 0 0 unless close $IN1
583 0 0 if $self->{'verbose'}
586 0 0 unless -e $path_to_perl
588 0 0 if $rv
646 0 0 unless -d $results_dir
660 0 0 unless chdir $self->{'temp_top_dir'}
664 0 0 unless mkdir $temp_t_dir
670 0 0 unless -f $testpl
671 0 0 unless copy($testpl, $self->{'temp_t_dir'})
675 0 0 unless mkdir $temp_dist_dir
684 0 0 unless chdir $self->{'currdir'}
749 0 0 if (not defined $args) { }
751 0 0 unless ref $args eq "HASH"
761 0 0 if ($args->{'cat_summaries'})
807 0 0 if (not defined $thisrun{'configure'} || defined $thisrun{'make'} || defined $thisrun{'test'}) { }
0 0 elsif ($thisrun{'configure'} and $thisrun{'make'} and $thisrun{'test'}) { }
890 0 0 if $self->{'verbose'}
895 0 0 unless mkdir $this_tempdir
896 0 0 unless dircopy($source_dir, $this_tempdir)
899 0 0 unless chdir $this_tempdir
900 0 0 if $self->{'verbose'}
907 0 0 if ($self->{'distro_metadata'}{$d}{'minimum_perl_version'} and $self->{'distro_metadata'}{$d}{'minimum_perl_version'} >= $p->{'canon'})
929 0 0 if ($self->{'verbose'})
939 0 0 if ($self->{'makefile_pl_status'}{$d} eq "cpan")
941 0 0 if (-f $this_makefile_pl)
950 0 0 unless $extract
951 0 0 unless -f $destination
953 0 0 unless -f $this_makefile_pl
955 0 0 if ($self->{'distro_metadata'}{$d}{'needs_ppport_h'})
962 0 0 unless $extract
963 0 0 unless -f $destination
966 0 0 if ($self->{'distro_metadata'}{$d}{'needs_threads_h'})
973 0 0 unless $extract
974 0 0 unless -f $destination
977 0 0 if ($self->{'distro_metadata'}{$d}{'needs_shared_h'})
984 0 0 unless $extract
985 0 0 unless -f $destination
989 0 0 if $rv = system($cmd)
990 0 0 $rv ? :
991 0 0 unless ($$this_result{$p->{'canon'}}{'configure'})
997 0 0 if $rv = system(" make >> $debugfile 2>&1 ")
999 0 0 $rv ? :
1000 0 0 unless ($$this_result{$p->{'canon'}}{'make'})
1005 0 0 if $rv = system(" make test >> $debugfile 2>&1 ")
1007 0 0 $rv ? :
1009 0 0 if system " make clean 2>&1 1>/dev/null "
1013 0 0 unless chdir $self->{'temp_top_dir'}
1058 0 0 unless open my $OUT, ">", $output
1062 0 0 unless close $OUT
1065 0 0 if $self->{'verbose'}
1082 0 0 unless opendir my $DIR, $id_dir
1086 0 0 unless closedir $DIR
1132 0 0 if ($distmodules->{$m}{'UPSTREAM'} ne "blead")
1135 0 0 if ($distmodules->{$m}{'MAINTAINER'} ne "P5P")
1140 0 0 if ($verbose)
1184 0 0 unless open my $IN, "<", $manifest
1186 0 0 unless close $IN