Condition Coverage

blib/lib/Module/ScanDeps.pm
Criterion Covered Total %
condition 44 82 53.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
629 0 10 29 @_ && $_[0] =~ /^(?:$Keys)$/o
838 0 0 15 @_ && $_[0] =~ /^(?:$Keys)$/o
1054 23 43 562 $1 eq 'require' && /^([\w:]+)/
1141 0 0 4 $] >= "5.008" and eval { do { require Encode; %Encode::ExtModule } }
1151 0 0 2087 defined $module and defined $file
1186 55 12 2020 defined $used_by and $used_by ne $module
1189 78 0 0 "File::Spec"->case_tolerant and not grep({lc $_ eq lc $used_by;} @{$$rv{$module}{"used_by"};})
1194 78 0 0 "File::Spec"->case_tolerant and not grep({lc $_ eq lc $module;} @{$$rv{$used_by}{"uses"};})
1200 0 0 1641 @_ && $_[0] =~ /^(?:modules|rv|used_by|warn_missing)$/
1289 180 369 0 $pm_only and not /\.p[mh]$/i
1633 164 0 0 $rv->{$key} and _not_dup($key, $rv, $rv_sub)

or 2 conditions

line l !l condition
759 111 0 $rv ||= {}
760 72 39 $_skip ||= {%{{} unless $skip;}}
1180 1514 573 $rv->{$module} ||= {"file", $file, "key", $module, "type", $type}
1205 1641 0 $args{'rv'} || {}
1206 38 1603 $args{'skip'} || {}
1329 0 0 $unicore_stuff ||= ["utf8_heavy.pl", map($_->{'name'}, _glob_in_inc("unicore", 0))]
1337 0 1 $self ||= {}
1709 406 1584 $seen ||= {}

or 3 conditions

line l !l&&r !l&&!r condition
730 0 0 39 $args{'execute'} or $args{'compile'}
890 0 0 1979 $SeenTk ||= $pm =~ /Tk\.pm$/
958 0 0 11 $@ or not defined $module
1042 0 0 83111 /^use \s+ Class::Autouse \b \s* (.*)/sx or /^Class::Autouse \s* -> \s* autouse \s* (.*)/sx
1189 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"};})
1194 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"};})
1414 559 0 0 $cache{$_} || "!!$_!!"
1571 0 0 0 $@ || "can't read ${data_file}: $!"