Condition Coverage

blib/lib/Language/Mumps.pm
Criterion Covered Total %
condition 0 163 0.0


and 2 conditions

line l !l condition
1645 0 0 ++$flag && {}
2070 0 0 $pos && 1
2107 0 0 $pos && 1

and 3 conditions

line !l l&&!r l&&r condition
426 0 0 0 $_[0] and not $_[0] =~ /^\s/
453 0 0 0 $_[0] and not $_[0] =~ /^[,\s]/
586 0 0 0 $_[0] and not $_[0] =~ /^\s/
588 0 0 0 $n == 2 and $rev
0 0 0 $n == 2 and $rev and $_[0] =~ s/^\)>//
591 0 0 0 $rev and not ref($var) =~ /var/i
631 0 0 0 $_[0] and not $_[0] =~ /^\s/
698 0 0 0 $_[0] and not $_[0] =~ /^\s/
740 0 0 0 $_[0] and not $_[0] =~ /^\s/
1010 0 0 0 $_[0] and not $_[0] =~ /^(\,|\s|\:)/
1026 0 0 0 $ch eq '#' and not $result
0 0 0 $ch eq '?' and $result
0 0 0 $ch =~ /['-]/ and $sum || !$result
1034 0 0 0 $ch eq '"' and not $flag
1036 0 0 0 $ch eq '\\' and not $flag
1178 0 0 0 $_[2] and $_[0] =~ /^\s/
1212 0 0 0 $_[0] and not $_[0] =~ /^\s/
1222 0 0 0 $_[3] and not $proto
1658 0 0 0 ++$flag and $$base{'data'} = $val

or 2 conditions

line l !l condition
290 0 0 $Language::Mumps::bookmarks{$line} || die('Unknown label')
1673 0 0 &$fetch($$hash{$key}) || {}
1686 0 0 &$fetch($$hash{$key}) || {}
1698 0 0 &$fetch($$hash{$key}) || {}
1710 0 0 &$fetch($$hash{$key}) || {}
1759 0 0 $fetch ||= sub { $_[0]; }
1760 0 0 $store ||= sub { $_[0]; }
1761 0 0 $hash ||= {}
2168 0 0 quotemeta $token || '.'
2352 0 0 shift() || 'dump'
2488 0 0 $dbh->prepare($query) || die($DBI::errstr)

or 3 conditions

line l !l&&r !l&&!r condition
138 0 0 0 not $label or $label =~ /^[a-z]\w*/i
195 0 0 0 $_ eq $token or $Language::Mumps::COMMANDS{$_} eq $token
428 0 0 0 $first or $_[0] =~ s/^,//
0 0 0 $first or $_[0] =~ s/^,// or $flag
433 0 0 0 $flag or $_[0] =~ s/^\://
700 0 0 0 not $done++ or $_[0] =~ s/^,//
741 0 0 0 $_[0] =~ s/^,// or not $done++
916 0 0 0 $Language::Mumps::FUNCTIONS{uc $alias} || $alias
1026 0 0 0 $sum || !$result
1091 0 0 0 $dot > 1 or $exp
1217 0 0 0 $first or $_[0] =~ s/^,//
1297 0 0 0 $first or $_[0] =~ s/^$delim//
1487 0 0 0 $state eq 'FreezeThaw' or $state eq 'Storable'
1643 0 0 0 &$fetch($$hash{$addr}) || ++$flag && {}
1645 0 0 0 $$base{'metadata'} ||= ++$flag && {}
1647 0 0 0 $$base{'metadata'}{$this} ||= ++$flag
1657 0 0 0 &$fetch($$hash{$addr}) || ++$flag && {}
2098 0 0 0 $to ||= $from
2203 0 0 0 $_ >= $right or $right == -1
2221 0 0 0 $to ||= $from
2318 0 0 0 shift() || substr(time, 0, 8) . '.dmp'
2441 0 0 0 shift() || time
2450 0 0 0 shift() || time
2467 0 0 0 shift() || time
2637 0 0 0 $to ||= $from
2663 0 0 0 $$dbs{$key} ||= &Language::Mumps::dbs($key)