Branch Coverage

blib/lib/Jojo/Base.pm
Criterion Covered Total %
branch 18 18 100.0


line true false branch
31 4 17 unless my $flag = shift()
36 5 12 if ($flag eq '-base') { }
6 6 elsif ($flag eq '-strict') { }
2 4 elsif ($flag eq '-role') { }
1 3 elsif ($base = $flag and $flag = '-base' and not $base->can('new')) { }
58 1 16 if ((shift() || '') eq '-signatures')
64 9 8 if ($base)
70 11 6 if (@exports)
82 5 1 unless my $class = &Scalar::Util::blessed($self)