Branch Coverage

blib/lib/Perl/Critic/Policy/Variables/ProhibitUnusedVariables.pm
Criterion Covered Total %
branch 17 28 60.7


line true false branch
38 2 29 unless %symbol_usage
41 2 27 unless $declarations
47 27 58 if "my" ne $declaration->type
50 58 0 if &any(sub {
55 0 0 unless $count
56 0 0 if $count > 1
75 2 29 unless $symbols
90 173 1 unless $document->find($class)
92 0 1 unless my $str = "PPIx::QuoteLike"->new($double_quotish)
112 92 1 unless $document->find($class)
114 0 1 unless my $ppix = $document->ppix_regexp_from_element($regex)
115 0 1 if $ppix->failures
118 1 0 unless $ppix->find("PPIx::Regexp::Token::Code")
119 0 0 unless my $subdoc = $code->ppi