Branch Coverage

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


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