Branch Coverage

blib/lib/Perl6/Controls.pm
Criterion Covered Total %
branch 16 32 50.0


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' ? :
88 9 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/u)
99 9 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/u)
112 9 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/u)
118 9 0 if (((caller 0)[3] // '') =~ /\b(?:un)?import\Z/u)