Branch Coverage

blib/lib/Perl/Critic/Policy/Subroutines/ProhibitUnusedPrivateSubroutines.pm
Criterion Covered Total %
branch 72 94 76.6


line true false branch
76 0 230 unless eval {
95 1 39 if &any(sub {
98 1 38 if $elem->forward
101 0 38 unless my $name = $elem->name
104 1 37 if $name =~ / :: /msx
107 3 34 if $self->{'_allow'}{$name}
110 34 0 if ($self->{'_allow_name_regex'})
111 1 33 if $name =~ / \A $self->{'_allow_name_regex'} \z /msx
116 11 22 unless $name =~ / \A $self->{'_private_name_regex'} \z /msx
119 9 13 if $self->_find_sub_call_in_document($elem, $document)
122 4 9 if $self->_find_sub_reference_in_document($elem, $document)
125 2 7 if $self->_find_sub_overload_in_document($elem, $document)
136 0 20 unless my $left_loc = $left_token->location
137 0 20 unless my $right_loc = $right_token->location
151 22 0 if (my $found = $document->find("PPI::Token::Word"))
153 76 28 unless $name eq $usage->content
154 21 7 unless is_function_call($usage) or is_method_call($usage)
157 2 5 if _compare_token_locations($usage, $start_token) < 0
159 4 1 if _compare_token_locations($finish_token, $usage) < 0
166 0 3 if _compare_token_locations($regexp, $start_token) >= 0 and _compare_token_locations($finish_token, $regexp) >= 0
169 3 0 if _find_sub_usage_in_regexp($name, $regexp, $document)
182 45 3 unless $document->find($_)
195 0 3 unless my $ppix = $document->ppix_regexp_from_element($regexp)
196 0 3 if $ppix->failures
198 0 3 unless $ppix->find("PPIx::Regexp::Token::Code")
199 0 3 unless my $doc = $code->ppi
201 0 3 unless $doc->find("PPI::Token::Word")
202 0 3 unless $name eq $word->content
203 0 3 unless is_function_call($word) or is_method_call($word)
224 2 7 if (my $found = $document->find("PPI::Statement::Include"))
226 0 2 unless "overload" eq $usage->module
229 2 2 unless $inx++ % 2
230 0 2 unless @{$arg;} == 1
233 1 1 if ($element->isa('PPI::Token::Quote')) { }
1 0 elsif ($element->isa('PPI::Token::Word')) { }
234 1 0 if $element->string eq $name
236 1 0 if $element->content eq $name
255 7 6 if (my $found = $document->find("PPI::Token::Symbol"))
257 19 5 unless $symbol eq $usage->content
260 2 2 if $prior and $prior->isa("PPI::Token::Cast") and "\\" eq $prior->content
265 0 1 unless is_function_call($usage) or $prior and $prior->isa("PPI::Token::Word") and "goto" eq $prior->content
271 1 2 if _compare_token_locations($usage, $start_token) < 0
273 1 1 if _compare_token_locations($finish_token, $usage) < 0
286 4 22 if $element->isa("PPI::Node")
287 10 12 if $element->significant
298 0 2 unless my(@arguments) = map({_expand_element($_);} $include->arguments)
304 4 6 if ($element->isa('PPI::Token::Operator') and $IS_COMMA{$element->content}) { }