Branch Coverage

blib/lib/MDK/Common/System.pm
Criterion Covered Total %
branch 0 92 0.0


line true false branch
270 0 0 unless sysopen my $F, $f, 0
274 0 0 if (ref $_ eq 'CODE') { }
275 0 0 unless my $name = &$_($F)
281 0 0 unless sysseek $F, $offset, 0
283 0 0 unless $tmp eq $signature
302 0 0 if $username eq 'nobody'
312 0 0 unless $uid >= 1000
317 0 0 if $groupname eq 'nogroup'
320 0 0 if $gid < 500
321 0 0 if $gid >= 1000
328 0 0 if $ugid == $gid and is_real_user($groupname)
332 0 0 if is_real_user($_)
341 0 0 if -d $_
345 0 0 is_real_user($_->[0]) ? :
373 0 0 unless syscall_('gettimeofday', $t, 0)
379 0 0 unless $l
380 0 0 if $l =~ m[^/]
389 0 0 if ($prog =~ m[/])
400 0 0 if ($links++ > 16)
405 0 0 if -x "$o_prefix$l"
411 0 0 unless open my $F, $_[0]
416 0 0 unless my($v, $val) = /^(\w+)=(.*)/
417 0 0 if ($val =~ /^"(.*)"(\s+#.*)?$/) { }
0 0 elsif ($val =~ /^'(.*)'(\s+#.*)?$/) { }
435 0 0 @fields ? :
451 0 0 if ($val =~ /["`\$]/) { }
0 0 elsif ($val =~ /[\(\)'|\s\\;<>&#\[\]~{}*?]/) { }
462 0 0 unless @fields
466 0 0 if ($file =~ m[^/home/]) { }
477 0 0 unless @fields
480 0 0 $l->{$_} ? :
0 0 @fields ? :
487 0 0 unless @fields
489 0 0 $l->{$_} ? :
500 0 0 unless -d MDK::Common::File::dirname($_) or not -e $_ or $force
503 0 0 if m[/home/(.+?)/]
511 0 0 if (/^\s*\[\Q$category\E\]/i ... /^\[/)
512 0 0 if /^\s*([^=]*?)=(.*)/
524 0 0 unless defined $category
526 0 0 if (my $i = /^\s*\[\Q$category\E\]/i ... /^\[/)
527 0 0 if ($i =~ /E/) { }
0 0 elsif (/^\s*([^=]*?)=/) { }
532 0 0 if (my $e = delete $subst{lc $1})
537 0 0 unless /^\[(NO|DEFAULT)CATEGORY\]/
541 0 0 if (keys %subst)
554 0 0 if (/^(\d+)$/) { }