| blib/lib/Perl/Critic/Policy/TooMuchCode/ProhibitUnusedImport.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 20 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 58 | 448 | 86 | unless $_[1]->isa("PPI::Token::Word") |
| 63 | 0 | 20 | unless $elem->find(sub { |
| 66 | 1 | 86 | if ($el_word->isa("PPI::Token::Symbol")) |
| 78 | 5 | 15 | if (@to_report) |
| 82 | 2 | 7 | if (exists $used{"is_" . $import} or exists $used{"to_" . $import} and exists $$moose_types{$imported{$import}[0]}) |
| 106 | 0 | 21 | if $st->schild(0) eq "no" |
| 107 | 0 | 21 | unless my $expr_qw = $st->find(sub { |
| 110 | 5 | 16 | if exists $is_ignored->{$included_module} |
| 112 | 16 | 0 | if (@$expr_qw == 1) |
| 116 | 0 | 27 | if $w =~ /\A [:\-\+]/x |