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 16 1 0 -s $0 && (-s lc $0 || -1) == (-s uc $0 || -1) && (-s lc $0 || -1) == -s $0
629 0 10 30 @_ && $_[0] =~ /^(?:$Keys)$/o
838 0 0 17 @_ && $_[0] =~ /^(?:$Keys)$/o
1054 26 49 590 $1 eq 'require' && /^([\w:]+)/
1141 0 0 4 $] >= "5.008" and eval { do { require Encode; %Encode::ExtModule } }
1151 0 0 2131 defined $module and defined $file
1186 56 12 2063 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 1685 @_ && $_[0] =~ /^(?:modules|rv|used_by|warn_missing)$/
1289 186 369 0 $pm_only and not /\.p[mh]$/i
1640 190 0 0 $rv->{$key} and _not_dup($key, $rv, $rv_sub)

or 2 conditions

line l !l condition
759 121 0 $rv ||= {}
760 81 40 $_skip ||= {%{{} unless $skip;}}
1180 1537 594 $rv->{$module} ||= {"file", $file, "key", $module, "type", $type}
1205 1685 0 $args{'rv'} || {}
1206 38 1647 $args{'skip'} || {}
1329 0 0 $unicore_stuff ||= ["utf8_heavy.pl", map($_->{'name'}, _glob_in_inc("unicore", 0))]
1337 0 1 $self ||= {}
1716 406 1628 $seen ||= {}

or 3 conditions

line l !l&&r !l&&!r condition
730 0 0 40 $args{'execute'} or $args{'compile'}
890 0 0 2049 $SeenTk ||= $pm =~ /Tk\.pm$/
958 0 0 11 $@ or not defined $module
1042 0 0 86434 /^use \s+ Class::Autouse \b \s* (.*)/sx or /^Class::Autouse \s* -> \s* autouse \s* (.*)/sx
1189 0 78 1985 'File::Spec'->case_tolerant || grep({$_ eq $used_by;} @{$$rv{$module}{'used_by'};})
1985 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 1985 'File::Spec'->case_tolerant || grep({$_ eq $module;} @{$$rv{$used_by}{'uses'};})
1985 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}: $!"