Branch Coverage

blib/lib/MooX/Purple.pm
Criterion Covered Total %
branch 40 64 62.5


line true false branch
12 12 2 unless $PREFIX
46 14 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/)
49 14 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/)
53 14 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/)
56 14 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/)
60 14 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/)
64 14 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/)
67 14 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/)
70 14 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/)
73 0 0 if $pre
0 0 if $pre
14 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/)
76 14 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/)
79 14 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/)
82 14 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/)
88 0 0 if $pre
9 0 if $pre
95 0 0 if $pre
6 0 if $pre
108 6 0 $attrs{'allow'} ? :
132 1 3 if ($pre eq '~') { }
1 2 elsif ($pre eq '=') { }
191 2 57 if ($_ =~ /\s*use\s*((?!qw)(?&PerlQualifiedIdentifier))\s*((?&PerlList)) $PPR::GRAMMAR/msx)
197 17 40 unless @list
203 32 128 if $attrs{$o}
226 6 28 if ($attrs{'allow'})
230 7 27 $attrs{'is'} ? :
236 12 8 unless ($l =~ s/^\s*\-/${last}::/)
239 2 18 if ($l =~ s/^\s*\~//)
240 2 0 $PREFIX ? :
244 11 23 $attrs{'with'} ? :
246 2 32 $attrs{'use'} ? :