Branch Coverage

blib/lib/Perl6/Controls.pm
Criterion Covered Total %
branch 18 44 40.9


line true false branch
14 9 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/u)
18 9 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/u)
20 9 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/u)
42 9 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/u)
48 9 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/u)
52 9 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/u)
59 9 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/u)
63 9 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/u)
67 9 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/u)
73 1 1 $while_or_until eq 'while' ? :
79 9 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/u)
82 0 0 $while_or_until eq 'while' ? :
84 9 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/u)
93 9 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/u)
104 9 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/u)
117 9 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/u)
123 9 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/u)
132 9 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/u)
137 0 0 if defined $_
140 0 0 /\A ( (?&PerlVariable) | (?&PerlVariableDeclaration) ) \Z $PPR::GRAMMAR /msux ? :
158 0 0 if defined $_
161 0 0 /\A ( (?&PerlVariable) | (?&PerlVariableDeclaration) ) \Z $PPR::GRAMMAR /msux ? :