Condition Coverage

blib/lib/Module/ScanDeps.pm
Criterion Covered Total %
condition 49 88 55.6


and 3 conditions

line !l l&&!r l&&r condition
14 15 1 0 -s $0 && (-s lc $0 || -1) == (-s uc $0 || -1) && (-s lc $0 || -1) == -s $0
578 0 10 29 @_ && $_[0] =~ /^(?:$Keys)$/o
787 0 0 15 @_ && $_[0] =~ /^(?:$Keys)$/o
963 30 15 58 length $_ and not /^q[qw]?$/
1016 23 43 562 $1 eq "require" and /^([\w:]+)/
1098 0 0 4 $] >= "5.008" and eval { do { require Encode; %Encode::ExtModule } }
1108 0 0 2087 defined $module and defined $file
1143 55 12 2020 defined $used_by and $used_by ne $module
1146 78 0 0 "File::Spec"->case_tolerant and not grep({lc $_ eq lc $used_by;} @{$$rv{$module}{"used_by"};})
1151 78 0 0 "File::Spec"->case_tolerant and not grep({lc $_ eq lc $module;} @{$$rv{$used_by}{"uses"};})
1157 0 0 1640 @_ && $_[0] =~ /^(?:modules|rv|used_by|warn_missing)$/
1246 180 369 0 $pm_only and not /\.p[mh]$/i
1590 164 0 0 $rv->{$key} and _not_dup($key, $rv, $rv_sub)

or 2 conditions

line l !l condition
708 111 0 $rv ||= {}
709 72 39 $_skip ||= {%{{} unless $skip;}}
1137 1514 573 $rv->{$module} ||= {"file", $file, "key", $module, "type", $type}
1162 1640 0 $args{'rv'} || {}
1163 38 1602 $args{'skip'} || {}
1286 0 0 $unicore_stuff ||= ["utf8_heavy.pl", map($_->{'name'}, _glob_in_inc("unicore", 0))]
1294 0 1 $self ||= {}
1666 406 1583 $seen ||= {}

or 3 conditions

line l !l&&r !l&&!r condition
679 0 0 39 $args{'execute'} or $args{'compile'}
839 0 0 1977 $SeenTk ||= $pm =~ /Tk\.pm$/
907 0 0 11 $@ or not defined $module
941 166208 28 0 $LoaderRegexp{$loaders} ||= _build_loader_regexp($loaders)
1005 0 0 83095 /^use \s+ Class::Autouse \b \s* (.*)/sx or /^Class::Autouse \s* -> \s* autouse \s* (.*)/sx
1146 0 78 1942 'File::Spec'->case_tolerant || grep({$_ eq $used_by;} @{$$rv{$module}{'used_by'};})
1942 0 78 not 'File::Spec'->case_tolerant || grep({$_ eq $used_by;} @{$$rv{$module}{'used_by'};}) or "File::Spec"->case_tolerant and not grep({lc $_ eq lc $used_by;} @{$$rv{$module}{"used_by"};})
1151 0 78 1942 'File::Spec'->case_tolerant || grep({$_ eq $module;} @{$$rv{$used_by}{'uses'};})
1942 72 6 not 'File::Spec'->case_tolerant || grep({$_ eq $module;} @{$$rv{$used_by}{'uses'};}) or "File::Spec"->case_tolerant and not grep({lc $_ eq lc $module;} @{$$rv{$used_by}{"uses"};})
1371 559 0 0 $cache{$_} || "!!$_!!"
1528 0 0 0 $@ || "can't read ${data_file}: $!"