Branch Coverage

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


line true false branch
38 2 28 unless %symbol_usage
41 1 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 28 unless $symbols
90 167 1 unless $document->find($class)
92 0 1 unless my $str = "PPIx::QuoteLike"->new($double_quotish)
112 90 0 unless $document->find($class)
114 0 0 unless my $ppix = $document->ppix_regexp_from_element($regex)
115 0 0 if $ppix->failures
118 0 0 unless $ppix->find("PPIx::Regexp::Token::Code")
119 0 0 unless my $subdoc = $code->ppi