| blib/lib/Perl/Critic/Policy/Subroutines/ProhibitCallsToUnexportedSubs.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 26 | 61.5 |
| line | true | false | branch |
|---|---|---|---|
| 52 | 5 | 0 | if (defined $config{'at_inc_prefix'}) |
| 56 | 0 | 5 | if (defined $config{'at_inc_suffix'}) |
| 64 | 5 | 0 | if ($use_standard_at_inc) |
| 69 | 0 | 5 | unless @inc |
| 99 | 0 | 29 | unless is_qualified_name($sub_call) |
| 102 | 5 | 24 | if _is_builtin_package($package) |
| 105 | 18 | 6 | unless (exists $exports->{$sub_name}) |
| 120 | 0 | 29 | unless $sub_call |
| 125 | 29 | 0 | if ($sub_call =~ / \A &? (.*) :: ([^:]+) \z /msx) |
| 140 | 4 | 20 | unless ($exports) |
| 146 | 4 | 0 | if ($file_name) |
| 163 | 0 | 4 | unless ($doc) |
| 192 | 0 | 4 | unless ($full_path) |