Branch Coverage

blib/lib/Test/Strict.pm
Criterion Covered Total %
branch 69 106 65.0


line true false branch
121 40 2 unless _is_perl_module($_)
125 1 1 @_ ? :
132 2 21 if (-d $File::Find::name and $_ eq 'CVS' || $_ eq '.svn' || $_ eq '.git' || $File::Find::name =~ m[(?:^|[\\/])blib[\\/]libdoc$] || $File::Find::name =~ m[(?:^|[\\/])blib[\\/]man\d$])
141 21 43 unless -f $File::Find::name and -r _
142 0 43 if $File::Find::name =~ /\.#.+?[\d\.]+$/
174 0 20 unless (-f $file and -r _)
187 20 0 if $ENV{'PATH'}
191 16 4 if $is_script
201 0 20 unless ($ok)
222 0 26 unless (open my $fh, '<', $file)
241 18 239 if /^\s*#/
242 6 233 if /^=(cut|back|end)/
243 15 218 if /^=\S+/
244 171 47 if $pod
245 0 47 if /^\s*(__END__|__DATA__)/
246 24 23 if $_ =~ /$strict_module_rx/
247 2 21 if (/\buse\s+(5\.\d+)/ and $1 >= 5.012)
250 1 20 if (/\buse\s+v5\.(\d+)/ and $1 >= 12)
375 0 4 if (not $is_script and $is_module and not $CAN_USE_WARNINGS)
381 0 11 unless (open my $fh, '<', $file)
393 6 5 if ($. == 1 and $is_script and $_ =~ /$PERL_PATTERN/)
394 5 1 if (/\s+-\w*[wW]/)
398 0 8 unless $CAN_USE_WARNINGS
399 1 7 if /^\s*#/
400 0 7 if /^\s*=.+/ .. /^\s*=(cut|back|end)/
401 0 7 if /^\s*(__END__|__DATA__)/
402 6 1 if $_ =~ /$warnings_module_rx/
435 17 0 if $TEST_SYNTAX
436 17 0 if $TEST_STRICT
437 3 14 if $TEST_WARNINGS
469 0 0 unless defined $cover_bin
473 0 0 @_ ? :
481 0 0 if $ENV{'PATH'}
482 0 0 if ($IS_WINDOWS and not -d $DEVEL_COVER_DB)
483 0 0 unless mkdir $DEVEL_COVER_DB
487 0 0 if ($?)
505 1 55 if $_[0] =~ /\~$/
506 49 6 unless $_[0] =~ /\.pm$/i
513 1 73 if $file =~ /\~$/
514 15 58 if $file =~ /\.pl$/i
515 24 34 if $file =~ /\.t$/
516 0 34 unless open my $fh, '<', $file
518 0 34 if defined $first and $first =~ /$PERL_PATTERN/
528 0 16 unless open my $fh, '<', $file
530 14 2 unless $first =~ /^#!.*\bperl.*\s-\w*([Tt]+)/
544 0 2 unless -e $candidate and -f _ and -r _
552 0 1 if defined $COVER
554 0 1 $IS_WINDOWS ? :
558 0 12 if ($IS_WINDOWS) { }
559 0 0 unless -f $path_cover and -r _
562 12 0 unless -x $path_cover
571 0 2 unless ($Test->has_plan)
580 0 60 wantarray ? :