Branch Coverage

blib/lib/Perinci/Sub/DepChecker.pm
Criterion Covered Total %
branch 89 108 82.4


line true false branch
29 22 43 unless (defined &{"checkdep_$dname";})
33 22 0 unless defined &{"checkdep_$dname";}
37 22 21 if ($res)
50 7 4 if $res
59 4 12 unless check_deps($_)
62 5 1 $nfail ? :
69 4 6 unless $res
76 1 2 $ENV{$cval} ? :
81 1 1 &$cval() ? :
87 5 4 ref $cval eq 'HASH' ? :
88 0 9 unless my $prog_name = $cval->{'name'}
90 3 6 if ($prog_name =~ m[/]) { }
91 1 2 unless -x $prog_name
94 0 6 unless File::Which::which($prog_name)
99 4 4 if (defined $cval->{'min_version'})
105 2 2 if ($prog_name eq 'git') { }
2 0 elsif ($prog_name eq 'perl') { }
107 2 0 $_[0] =~ /git version (.+)/ ? :
110 2 0 $_[0] =~ /\(v(.+?)\)/ ? :
116 0 4 $? < 0 ? :
117 0 4 if $exit_code
119 0 4 unless ($ver) = &$ver_extract($ver)
121 2 2 if Version::Util::version_lt($ver, $cval->{'min_version'})
128 0 0 if $pa
137 0 0 unless $res->[0] == 200
139 0 0 unless $res->[2]{'type'} eq "package"
146 0 0 unless $res->[0] == 200
148 0 0 unless $res->[2]{'type'} eq "function"
169 57 42 if grep {$_ eq $el;} @$ary
174 8 2 if $_
6 4 if grep {$_ eq $el;} @$ary
185 42 237 if ($dname eq 'all') { }
42 195 elsif ($dname eq 'any') { }
63 132 elsif ($dname eq 'none') { }
188 1 41 unless @r
189 6 35 if "impossible" ~~ \@r
190 22 13 if "must" ~~ \@r and "must not" ~~ \@r
191 4 9 if "must" ~~ \@r
192 4 5 if "must not" ~~ \@r
193 3 2 if _all_nonblank_elems_is(\@r, "might")
197 1 41 unless @r
198 6 35 if "impossible" ~~ \@r
199 2 33 if _all_elems_is(\@r, "must")
200 2 31 if _all_elems_is(\@r, "must not")
201 2 29 if _all_elems_is(\@r, "")
206 1 62 unless @r
207 6 56 if "impossible" ~~ \@r
208 1 55 if "must" ~~ \@r and "must not" ~~ \@r
209 46 9 if "must" ~~ \@r
210 4 5 if "must not" ~~ \@r
211 3 2 if _all_nonblank_elems_is(\@r, "might")
213 107 25 if $dname eq $wanted
224 3 1 unless $dname ~~ \@$res
225 1 3 if ($dname =~ /\A(?:all|any|none)\z/)