Branch Coverage

blib/lib/Perl/ToPerl6/Transformer/Pragmas/FormatConstants.pm
Criterion Covered Total %
branch 3 14 21.4


line true false branch
38 0 9 unless $elem and $elem->first_element
43 0 9 if ($current->isa('PPI::Token::Word') and $current->content =~ /^Readonly/) { }
0 9 elsif ($head->isa('PPI::Token::Word') and $head->content eq 'use' and $head->snext_sibling and $head->snext_sibling->isa('PPI::Token::Word') and $head->snext_sibling->content eq 'constant') { }
47 0 0 if $current->next_sibling->isa('PPI::Token::Whitespace')
52 0 0 if (exists $map{$current->content})
66 0 0 if ($current->content =~ / ^ ( \$ | \@ ) /x)
87 0 0 if ($head->next_sibling->isa('PPI::Token::Whitespace'))