Branch Coverage

blib/lib/strictures.pm
Criterion Covered Total %
branch 42 44 95.4


line true false branch
7 0 3 "$]" < 5.008004 ? :
10 3 0 "$]" >= 5.01 ? :
99 31 2 if (defined $_[1] and eval { do { &UNIVERSAL::VERSION; 1 } })
114 2 32 @_ == 1 ? :
115 32 2 unless (exists $opts{'version'})
118 31 1 exists $^H{'strictures_enable'} ? :
127 1 33 unless defined $version
130 2 32 unless ($class->can($method))
142 8 7 if (_want_extra($opts->{'file'}))
145 6 2 if $extra_load_states{'indirect'}
147 6 2 if $extra_load_states{'multidimensional'}
149 6 2 if $extra_load_states{'bareword::filehandles'}
176 9 8 if (_want_extra($opts->{'file'}))
179 6 3 if $extra_load_states{'indirect'}
181 6 3 if $extra_load_states{'multidimensional'}
183 6 3 if $extra_load_states{'bareword::filehandles'}
188 8 24 if (exists $ENV{'PERL_STRICTURES_EXTRA'})
193 5 3 $ENV{'PERL_STRICTURES_EXTRA'} ? :
201 8 24 if defined $want_env
220 39 12 if exists $extra_load_states{$mod}
222 9 3 unless ($extra_load_states{$mod} = eval "require $mod; 1;")
231 3 14 if (@failed)