Branch Coverage

inc/My/Module/Test.pm
Criterion Covered Total %
branch 38 82 46.3


line true false branch
58 0 5 unless eval { do { require LWP::UserAgent; 1 } }
64 0 5 unless $resp->is_success
75 1 16 unless (eval { do { $got = $obj->$method(@args); 1 } })
79 15 2 ref $got ? :
89 0 1 unless (eval { do { $got = [$obj->$method(@args)]; 1 } })
93 1 0 ref $got ? :
102 0 84 if ('ARRAY' eq $ref) { }
84 0 elsif ('HASH' eq $ref) { }
0 0 elsif ($ref) { }
123 6 0 if ('ARRAY' eq ref $got) { }
140 43 42 if ('ARRAY' eq $type) { }
42 0 elsif ($type eq 'HASH') { }
173 0 0 if ("ARRAY" eq ref $got)
178 0 0 if ('ARRAY' eq $type) { }
0 0 elsif ('HASH' eq $type) { }
187 0 0 if (defined $test and $test eq $target)
204 0 0 unless my $code = "Test::Without::Module"->can("get_forbidden_list")
211 1 0 if (defined $arg) { }
222 2 0 @args ? :
1 2 @args > 1 ? :
226 0 4 if (exists $loaded{$_}) { }
227 0 0 if ($loaded{$_})
233 0 4 if (eval "require $_; 1")
240 3 0 if defined $prob and not $skip
249 2 0 if $skip
256 0 0 unless $loaded{shift @args}
258 0 0 unless my $code = "My::Module::Test"->can($verb)
270 0 0 unless defined $arg
288 0 50 unless defined $got
290 1 99 if ref $_
292 0 99 if /(.+?)\s+$/ and _numberp($1 . "")
294 0 50 if ($skip) { }
1 49 elsif ('Regexp' eq ref $want) { }
43 6 elsif (_numberp($want) and _numberp($got)) { }
300 1 0 $type ? :
302 43 0 $type ? :
306 6 0 $type ? :
315 0 1 if $skip and $silent
318 0 1 $skip ? :
330 0 2 unless defined $_
332 0 2 if _numberp($_)