Branch Coverage

blib/lib/App/PerlNitpick/Rule/RemoveUnusedImport.pm
Criterion Covered Total %
branch 13 22 59.0


line true false branch
39 0 3 if (@new_args_literal == 0) { }
51 0 3 if (@new_args_literal == 0)
67 0 2 unless $doc->find(sub {
68 5 4 unless ($el->parent->isa("PPI::Statement::Include") and !$el->sprevious_sibling || $el->sprevious_sibling eq 'use')
70 1 4 if ($el =~ /::/ and is_function_call($el))
94 0 2 unless $st->type eq "use"
96 0 2 if $included_module =~ /\A[a-z0-9:]+\Z/ or $is_special{"$included_module"}
98 0 2 unless my $expr_qw = $st->find(sub {
100 2 0 if (@$expr_qw == 1)
111 0 4 if $w =~ /\A [:\-\+\$\@%]/x
121 0 2 unless $elem->find(sub {