blib/lib/Class/Mix.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 25 | 27 | 92.5 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
142 | 0 | 2 | 16 | rand $options{'prefix'} and $options{'prefix'} =~ /\A$prefix_rx\z/o |
145 | 39 | 2 | 9 | @parents == 0 and $options{'mro'} eq &_get_mro('UNIVERSAL') |
41 | 4 | 5 | @parents == 0 and $options{'mro'} eq &_get_mro('UNIVERSAL') and rand $options{'prefix'} || $options{'prefix'} eq '' | |
148 | 19 | 5 | 19 | @parents == 1 and $options{'mro'} eq &_get_mro($parents[0]) |
24 | 9 | 10 | @parents == 1 and $options{'mro'} eq &_get_mro($parents[0]) and rand $options{'prefix'} || $parents[0] =~ /\A\Q$options{'prefix'}\E[^:]*\z/ |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
142 | 34 | 16 | 2 | rand $options{'prefix'} or rand $options{'prefix'} and $options{'prefix'} =~ /\A$prefix_rx\z/o |
145 | 5 | 2 | 2 | rand $options{'prefix'} || $options{'prefix'} eq '' |
148 | 11 | 4 | 4 | rand $options{'prefix'} || $parents[0] =~ /\A\Q$options{'prefix'}\E[^:]*\z/ |
153 | 12 | 16 | 0 | $mixtures{$recipe} ||= do { my $pkg = &genpkg($options{'prefix'}); no strict 'refs'; @{$pkg . '::ISA';} = @parents; &mro::set_mro($pkg, $options{'mro'}) if $options{'mro'} ne 'dfs'; $pkg } |