Branch Coverage

blib/lib/MongoDB/Role/_DeprecationWarner.pm
Criterion Covered Total %
branch 0 20 0.0


line true false branch
33 0 0 if $ENV{'PERL_MONGO_NO_DEP_WARNINGS'}
35 0 0 unless defined $trace
47 0 0 if $ENV{'PERL_MONGO_NO_DEP_WARNINGS'}
50 0 0 unless defined $trace
72 0 0 if (ref $new eq 'ARRAY')
73 0 0 if (@$new == 1) { }
0 0 elsif (@$new > 1) { }
101 0 0 unless defined $pkg
109 0 0 if (not $callsite_found and $pkg ne 'Sub::Uplevel')
111 0 0 if $CALL_SITES{join $;, $pkg, $line, $file}++