Branch Coverage

blib/lib/Perl/Critic/Policy/Subroutines/ProhibitCallsToUnexportedSubs.pm
Criterion Covered Total %
branch 17 28 60.7


line true false branch
52 5 0 if (defined $config{'at_inc_prefix'})
56 0 5 if (defined $config{'at_inc_suffix'})
62 5 0 unless (defined $use_standard_at_inc)
67 5 0 if ($use_standard_at_inc)
72 0 5 unless @inc
102 0 29 unless is_qualified_name($sub_call)
105 5 24 if _is_builtin_package($package)
108 18 6 unless (exists $$exports{$sub_name})
123 0 29 unless $sub_call
128 29 0 if ($sub_call =~ / \A &? (.*) :: ([^:]+) \z /msx)
143 4 20 unless ($exports)
149 4 0 if ($file_name)
166 0 4 unless ($doc)
195 0 4 unless ($full_path)