Branch Coverage

blib/lib/Perl/Critic/Policy/Variables/ProhibitNumericNamesWithLeadingZero.pm
Criterion Covered Total %
branch 22 34 64.7


line true false branch
69 0 12 unless $Perl::Critic::Policy::Variables::ProhibitNumericNamesWithLeadingZero::a->[1] <=> $Perl::Critic::Policy::Variables::ProhibitNumericNamesWithLeadingZero::b->[1]
106 0 26 unless $elem->find("PPI::Token::Magic")
108 9 18 unless $name =~ / \W 0 [0-9]+ \z /msx
128 24 2 unless $elem->find("PPI::Token::Cast")
129 0 3 unless my $block = $cast->snext_sibling
131 0 3 unless $block->isa("PPI::Structure::Block")
133 0 3 unless $block->find("PPI::Token")
0 3 unless my(@tokens) = @{[] unless $block->find("PPI::Token");}
135 0 3 if @tokens > 1
137 0 3 unless $tokens[0]->isa("PPI::Token::Number")
139 1 2 unless $tokens[0]->content =~ / \A 0 [0-9]+ \z /msx
160 150 6 unless $elem->find($class)
161 0 18 unless my $ppix_str = "PPIx::QuoteLike"->new($ppi_str)
164 0 18 unless $ppix_str->find("PPIx::QuoteLike::Token::Interpolation")
192 76 2 unless $elem->find($class)
193 0 6 unless my $ppix_re = "PPIx::Regexp"->new($ppi_re)
196 0 6 unless $ppix_re->find("PPIx::Regexp::Token::Code")