Branch Coverage

blib/lib/CPANPLUS/Dist/Debora/Package.pm
Criterion Covered Total %
branch 115 192 59.9


line true false branch
87 0 6 unless (exists $attrs{'module'})
92 0 6 unless (defined $builddir)
96 4 2 unless (exists $attrs{'installdirs'})
101 0 6 if ($installdirs ne "vendor" and $installdirs ne "site")
105 6 0 unless (exists $attrs{'build_number'})
110 0 6 unless ($build_number =~ /\A [1-9]\d* \z/msux)
122 82 76 unless (exists $self->{$name})
270 3 0 unless $self->rpm_eval("%{?vendor}")
380 0 64 unless opendir my $dh, $dir
384 128 76 if $entry eq "." or $entry eq ".."
389 0 76 if -l $path
392 60 16 if (-d $path)
398 0 76 unless (@stat)
405 0 76 if ($old_mode != $new_mode)
406 0 0 unless (chmod $new_mode, $path)
413 60 16 if (-d $path) { }
417 4 8 if ($entry eq "perllocal.pod" or $entry eq ".packlist" or $entry =~ /[.]bs \z/msux and -z $path)
421 0 8 unless (unlink $path)
441 0 0 if (defined $stagingdir)
463 0 9 if ($rpm_cmd)
466 0 0 if (run("command", \@eval_cmd, "buffer", \$output))
490 6 0 if (defined $stagingdir)
504 0 13 if (exists $PACKAGE_NAME_FOR{$dist_name}) { }
511 12 1 unless ($name =~ /\A perl-/msux)
526 0 18 if (exists $VERSION_FOR{$dist_name})
553 3 0 if (-f $metafile)
555 3 0 if defined $meta
592 0 3 unless (defined $stagingdir)
611 0 3 unless (defined $stagingdir)
616 3 0 if ($is_noarch)
619 3 0 if (defined $archdir)
621 0 3 if (-d $autodir)
638 3 0 if (-f $filename)
656 0 3 if ($self->rpm_eval("%{?packager}") =~ /$EMAIL/u)
661 3 0 unless ($name)
664 1 4 if ($ENV{$key})
666 1 0 if $name
672 1 5 if ($ENV{$key})
674 1 0 if ($value and $value =~ /$EMAIL/u)
675 0 1 unless ($name)
678 1 0 unless ($email)
688 3 0 if (@pw)
691 2 1 unless ($name)
693 2 0 if ($gecos)
699 0 3 unless ($user)
702 0 0 if ($ENV{$key})
704 0 0 if $user
709 0 3 unless ($user)
713 0 3 unless ($name)
717 2 1 unless ($email)
732 4 0 if (defined $meta)
734 4 0 if ($text and not $text =~ /unknown/imsux)
748 1 0 if (defined $pod)
773 3 0 if (defined $pod)
777 0 3 unless ($description)
794 3 0 if (defined $meta and ref $meta->{'prereqs'} eq 'HASH') { }
831 0 12 unless $module
834 0 12 if $module_name eq "Task::Weaken"
837 0 12 if $module_name =~ /\A (?:VMS | Win32)/msux
847 0 12 if (exists $version_for{$dist_name})
851 12 0 if (not exists $dependency{$module_name} or $dependency{$module_name}{'version'} < $version)
881 3 0 if (defined $pod)
885 0 3 unless (@copyrights)
887 0 0 $author ? :
903 4 0 if (defined $meta)
905 4 0 if (defined $keys)
906 0 4 unless (ref $keys)
914 4 0 if (@license)
930 4 0 if (defined $pod)
933 4 0 if (@license)
955 0 3 unless ($license)
972 0 3 unless (@licenses)
987 0 3 @names > 1 && /\b OR \b/imsux ? :
1033 0 5 unless opendir my $dh, $dir
1037 10 5 if $entry eq "." or $entry eq ".."
1042 0 5 if -l $path
1044 0 5 if (-d $path) { }
1059 0 5 unless opendir my $dh, $dir
1063 10 105 if $entry eq "." or $entry eq ".."
1068 0 105 if -l $path
1070 25 80 if (-d $path) { }
70 10 elsif (-s $path) { }
1071 5 20 if ($entry eq "examples")
1080 20 169 if ($entry =~ /$regex_for{$type}/u)
1125 40 20 unless $value
1127 5 15 if ($var =~ /arch \z/msux)
1155 0 40 unless opendir my $dh, $dir
1159 80 47 if $entry eq "." or $entry eq ".."
1164 35 12 -d $path ? :
0 47 -l $path ? :
1165 12 35 if ($type eq "file")
1168 0 12 if (exists $subdir{'etc'}) { }
5 7 elsif (exists $subdir{'man'}) { }
1176 43 4 unless (exists $excludedirs->{$name})
1182 0 47 if -l $path
1184 35 12 if (-d $path)