Branch Coverage

blib/lib/Earth.pm
Criterion Covered Total %
branch 23 40 57.5


line true false branch
40 0 21 if (UNIVERSAL::isa($invocant, "CODE"))
43 0 21 unless $routine
44 8 13 if (&Scalar::Util::blessed($invocant))
47 3 10 if (ref $invocant eq "SCALAR")
51 10 0 if (my $routine = $package->can($routine))
54 0 0 if ($package->can("AUTOLOAD"))
62 0 1 unless @_
63 1 0 ref $_[0] ? :
69 0 3 unless $invocant
70 2 5 ref $_ eq 'ARRAY' ? :
84 8 2 if ($cached->{$package})
88 0 2 if ($package eq "main")
95 2 0 unless $failed
99 2 0 unless $loaded
100 2 0 unless $loaded
105 0 0 $error ? :
0 2 if $error or $failed or not $loaded
117 0 6 unless @_
136 0 7 unless $package
141 4 13 @_ ? :