blib/lib/Test/Strict.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 42 | 70 | 60.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
132 | 43 | 21 | 2 | -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 | 0 | 43 | -f $File::Find::name and -r _ |
174 | 0 | 0 | 20 | -f $file and -r _ |
247 | 18 | 3 | 2 | /\buse\s+(5\.\d+)/ and $1 >= 5.012 |
250 | 20 | 0 | 1 | /\buse\s+v5\.(\d+)/ and $1 >= 12 |
375 | 7 | 1 | 3 | not $is_script and $is_module |
8 | 3 | 0 | not $is_script and $is_module and not $CAN_USE_WARNINGS | |
393 | 2 | 4 | 7 | $. == 1 and $is_script |
6 | 1 | 6 | $. == 1 and $is_script and $_ =~ /$PERL_PATTERN/ | |
482 | 0 | 0 | 0 | $IS_WINDOWS and not -d $DEVEL_COVER_DB |
518 | 11 | 23 | 0 | defined $first and $first =~ /$PERL_PATTERN/ |
544 | 607 | 0 | 2 | -e $candidate and -f _ |
607 | 0 | 2 | -e $candidate and -f _ and -r _ | |
559 | 0 | 0 | 0 | -f $path_cover and -r _ |
line | l | !l | condition |
---|---|---|---|
153 | 2 | 0 | $TEST_SKIP || [] |
184 | 20 | 0 | join($Config::Config{'path_sep'}, @INC) || '' |
191 | 2 | 14 | _taint_switch($file) || '' |
473 | 0 | 0 | ('File::Spec'->splitpath($0))[1] || '.' |
556 | 11 | 1 | $_ || '.' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
132 | 0 | 2 | 21 | $_ eq 'CVS' || $_ eq '.svn' || $_ eq '.git' || $File::Find::name =~ m[(?:^|[\\/])blib[\\/]libdoc$] || $File::Find::name =~ m[(?:^|[\\/])blib[\\/]man\d$] |
171 | 2 | 18 | 0 | shift() || "Syntax check $file" |
220 | 5 | 21 | 0 | shift() || "use strict $file" |
370 | 7 | 4 | 0 | shift() || "use warnings $file" |
472 | 0 | 0 | 0 | shift() || $COVERAGE_THRESHOLD |
475 | 0 | 0 | 0 | /$0$/o || $0 =~ /$_$/ |