Branch Coverage

blib/lib/Modern/Perl/Prelude.pm
Criterion Covered Total %
branch 28 28 100.0


line true false branch
72 7 12 if $config->{'utf8'}
74 5 14 if $config->{'always_true'}
77 5 14 if $config->{'class'}
80 2 17 if $config->{'defer'}
83 2 17 if $config->{'corinna'}
101 1 7 if $config->{'always_true'}
109 9 24 unless @args
111 12 12 if (@args == 1 and ref $args[0] eq "HASH")
123 1 18 if ref $arg
127 2 16 unless $KNOWN_FLAG{$arg}
142 1 16 unless $KNOWN_HASH_KEY{$key}
152 2 6 if $config->{'class'} and $config->{'corinna'}
160 5 1 if ($enabled) { }
176 2 7 if (ref $opts eq 'HASH') { }