| line |
true |
false |
branch |
|
64
|
17 |
544 |
defined $args{'at_inc_prefix'} ? :
|
|
67
|
7 |
554 |
defined $args{'at_inc_suffix'} ? :
|
|
70
|
10 |
551 |
defined $args{'at_inc'} ? :
|
|
77
|
8 |
553 |
defined $args{'max_recursion'} ? :
|
|
80
|
5 |
556 |
defined $args{'inspect_autoloaders'} ? :
|
|
83
|
5 |
556 |
defined $args{'inspect_required_modules'} ? :
|
|
97
|
0 |
32 |
unless $all_elements
|
|
117
|
9 |
1008 |
if ($elem->isa('PPI::Statement::Package'))
|
|
124
|
24 |
984 |
if ($elem->isa('PPI::Statement::Include'))
|
|
126
|
21 |
3 |
if $elem->type ne 'require'
|
|
127
|
1 |
2 |
unless $$self{'_inspect_required_modules'}
|
|
140
|
42 |
942 |
if ($elem->isa('PPI::Token::Symbol')) { }
|
|
|
134 |
808 |
elsif ($elem->isa('PPI::Token::Word')) { }
|
|
142
|
0 |
42 |
if $elem->isa('PPI::Token::Magic')
|
|
150
|
52 |
82 |
unless is_function_call($elem)
|
|
151
|
47 |
35 |
if is_perl_builtin($elem)
|
|
174
|
0 |
42 |
unless $canon =~ / \A [\$\@%&*] (.*?) (?: ::)? ([^:]*) \z /msx
|
|
185
|
9 |
33 |
if $sigil ne $AMPERSAND and not $pkg
|
|
186
|
8 |
25 |
if (not $pkg and $sigil eq $AMPERSAND)
|
|
190
|
0 |
33 |
if ($$symbols_of{$sigil}{"${pkg}::AUTOLOAD"})
|
|
191
|
0 |
0 |
unless $$self{'_inspect_autoloaders'}
|
|
196
|
0 |
33 |
if exists $GLOBAL_PACKAGES{$pkg}
|
|
200
|
11 |
22 |
if exists $$symbols_of{$sigil}{"${pkg}::$sym_name"}
|
|
221
|
0 |
35 |
unless $canon =~ / (.+) :: ([^:]+) \z /msx
|
|
227
|
3 |
32 |
if exists $GLOBAL_PACKAGES{$pkg}
|
|
231
|
2 |
30 |
if ($$symbols_of{$sigil}{"${pkg}::AUTOLOAD"})
|
|
232
|
1 |
1 |
unless $$self{'_inspect_autoloaders'}
|
|
238
|
15 |
16 |
if exists $$symbols_of{$sigil}{$canon}
|
|
239
|
0 |
16 |
if exists $$symbols_of{'ios'}{$canon}
|
|
245
|
11 |
5 |
$$included_modules{$pkg} ? :
|
|
269
|
0 |
2 |
if ($Perl::Critic::Policy::Dynamic::ValidateAgainstSymbolTable::EVAL_ERROR)
|
|
324
|
0 |
32 |
if (defined $filename and -f $filename) { }
|
|
325
|
0 |
0 |
unless open my $fh, '<', $filename
|
|
328
|
0 |
0 |
unless close $fh
|
|
342
|
31 |
1 |
if $Perl::Critic::Policy::Dynamic::ValidateAgainstSymbolTable::EVAL_ERROR eq "$suicide_note\n"
|
|
349
|
1 |
0 |
if ($Perl::Critic::Policy::Dynamic::ValidateAgainstSymbolTable::EVAL_ERROR) { }
|
|
364
|
23 |
9 |
unless $package_declarations
|
|
377
|
7 |
25 |
unless $includes
|
|
419
|
16 |
19 |
if $bareword_as_string =~ /\A .+ ::/msx
|
|
420
|
2 |
17 |
if $bareword_as_string =~ /\A ::/msx
|