Branch Coverage

blib/lib/Test/Modern.pm
Criterion Covered Total %
branch 52 116 44.8


line true false branch
22 0 16 $ENV{'PERL_TEST_MODERN_ALLOW_WARNINGS'} ? :
251 10 15 /\A[:-](\w+)\z/ && $HINTS{$1} ? :
13 25 ref $_ ? :
257 12 8 if $symbols == 0
259 6 14 ref $_[0] eq 'HASH' ? :
260 14 6 unless ref $$globals{'into'}
277 6 9 ref $caller ? :
281 6 9 if ref $caller
292 0 9 unless exists $$opts{'into_file'}
305 9 9 unless -d $t_dir or -d $xt_dir
309 9 0 if (-d $tlib_dir)
316 9 0 if $found
319 0 9 if ($$opts{'lib'} and not $found)
334 0 2 if (not defined $thing) { }
2 0 elsif (ref $thing) { }
342 2 0 if (&Scalar::Util::blessed($thing))
353 0 2 if ($error)
354 0 0 unless $error =~ /^Can't (locate|call) method "DOES"/
362 0 2 if ($whatami eq 'reference')
367 2 0 if (defined $thing_name) { }
0 0 elsif ($whatami eq 'object') { }
0 0 elsif ($whatami eq 'reference') { }
0 0 elsif ($whatami eq 'undef') { }
0 0 elsif ($whatami eq 'class') { }
369 2 0 defined $thing ? :
398 2 0 if ($rslt) { }
414 1 0 @_ % 2 ? :
420 1 0 if (ref $object eq 'CODE')
424 0 1 unless ref $tmp
435 0 1 unless ok &Scalar::Util::blessed($object), "$name is blessed"
438 1 0 if (exists $tests{'isa'})
440 0 1 ref $tests{'isa'} eq 'ARRAY' ? :
445 1 0 if (exists $tests{'does'})
447 1 0 ref $tests{'does'} eq 'ARRAY' ? :
452 1 0 if (exists $tests{'can'})
454 1 0 ref $tests{'can'} eq 'ARRAY' ? :
459 1 0 if (exists $tests{'api'})
461 1 0 ref $tests{'api'} eq 'ARRAY' ? :
466 1 0 if (delete $tests{'clean'})
471 1 0 if (exists $tests{'more'})
487 0 1 if ($bail)
494 1 0 $result ? :
502 0 0 unless ($chosen)
506 0 0 if ref $_ and $chosen = $_
512 0 0 exists &$_ ? :
522 0 0 $chosen ? :
579 0 2 if $method eq 'DESTROY'
580 0 2 unless my $coderef = 'Test::Deep'->can($method)
704 1 0 if @_ == 1
721 7 0 unless $ENV{'RELEASE_TESTING'} or $ENV{'AUTHOR_TESTING'}
730 16 96 if ref $function eq 'HASH'
735 7 0 if ($opt{'extended'} and not _should_extended_test)
744 0 0 if (eval "require $module")
747 0 0 if ($opt{'multi'}) { }
763 0 0 unless $ENV{'RELEASE_TESTING'}
859 0 0 unless defined $desc
882 0 0 unless $ok
884 0 0 if ($VERBOSE or not $ok)