Branch Coverage

blib/lib/Language/Mumps.pm
Criterion Covered Total %
branch 0 368 0.0


line true false branch
109 0 0 if $Language::Mumps::forgiveful
113 0 0 if ($line =~ s/^\%//)
119 0 0 if ($line =~ s/^\#//)
125 0 0 unless ($line =~ /\t/)
138 0 0 unless not $label or $label =~ /^[a-z]\w*/i
144 0 0 if $label
161 0 0 if ($line =~ s/^\s*(\S*?)\s+//) { }
170 0 0 if ($token eq '}')
171 0 0 unless $Language::Mumps::scopes--
178 0 0 if ($token =~ /^([a-z]\w*):(.*)$/i)
183 0 0 if ($cond)
195 0 0 if ($_ eq $token or $Language::Mumps::COMMANDS{$_} eq $token)
231 0 0 if $Language::Mumps::scopes
248 0 0 if $@
290 0 0 $line > 0 ? :
336 0 0 if ($_[0] =~ s/^\s*([a-z]\w*)\b//i)
346 0 0 if ($_[0] =~ /^[\@"]/)
351 0 0 if ($_[0] =~ /^\$\$/)
371 0 0 if ($_[0] =~ s/^\{\s*//)
385 0 0 unless ($_[0])
413 0 0 unless $_[0] =~ s/^\=//
426 0 0 unless $_[0] and not $_[0] =~ /^\s/
428 0 0 unless $first or $_[0] =~ s/^,// or $flag
433 0 0 if ($flag or $_[0] =~ s/^\://) { }
436 0 0 if $listflag
438 0 0 if $flag
453 0 0 if ($_[0] and not $_[0] =~ /^[,\s]/) { }
454 0 0 unless $_[0] =~ s/^://
491 0 0 unless $_[0]
498 0 0 if ($_[0] =~ s/^\{\s*//)
513 0 0 if ($_[0] =~ s/^([a-z]\w*)\b//i)
530 0 0 unless $_[0]
541 0 0 unless $_[0]
545 0 0 unless $_[0]
546 0 0 if ($_[0] =~ s/^\{//)
569 0 0 unless ($_[0])
579 0 0 if ($_[0] =~ s/^\(//)
588 0 0 if $n == 2 and $rev and $_[0] =~ s/^\)>//
589 0 0 unless $_[0] =~ /^\^?\w/
591 0 0 if $rev and not ref($var) =~ /var/i
596 0 0 !$rev ? :
603 0 0 if ($rev)
621 0 0 unless ($_[0])
631 0 0 if $_[0] and not $_[0] =~ /^\s/
659 0 0 unless $_[0] =~ s/^\://
700 0 0 unless not $done++ or $_[0] =~ s/^,//
702 0 0 if ($_[0] =~ /^\*?[a-z^]/i) { }
0 0 elsif ($_[0] =~ s/^\?//) { }
705 0 0 if ($_[0] =~ s/^\*//)
716 0 0 if $timeout
719 0 0 if $timeout
741 0 0 unless $_[0] =~ s/^,// or not $done++
747 0 0 unless $_[0] =~ s/^\=//
833 0 0 unless @tokens
834 0 0 if $Language::Mumps::infun++ > 1
853 0 0 unless $Language::Mumps::infun--
892 0 0 if ($_[0] =~ s/^\$//) { }
0 0 elsif ($_[0] =~ s/^\^//) { }
0 0 elsif ($_[0] =~ s/^\&//) { }
911 0 0 unless $_[0] =~ /^[a-z$extra]/i
916 0 0 if $isfun
920 0 0 if ($_[0] =~ s/^\(//) { }
0 0 elsif ($isfun) { }
921 0 0 unless ($isfun)
927 0 0 unless $_[0] =~ /^\)/
931 0 0 if ($alias =~ s/^(\$)//)
943 0 0 unless @$opt
958 0 0 unless $line =~ /^\)/
961 0 0 unless $@
972 0 0 unless $_[0] =~ s/^\)//
977 0 0 unless @$opt
981 0 0 unless $$_{'prot'}
1017 0 0 if ($ch eq ')')
1021 0 0 if $_[2]
1026 0 0 if ($ch eq '"') { }
0 0 elsif ($ch eq '!') { }
0 0 elsif ($ch eq '#' and not $result) { }
0 0 elsif ($ch eq '?' and $result) { }
0 0 elsif ($ch eq '?') { }
0 0 elsif ($ch =~ /[0-9\.]/) { }
0 0 elsif ($ch =~ /[a-z\$\^\@\%\&]/i) { }
0 0 elsif ($ch =~ /['-]/ and $sum || !$result) { }
1034 0 0 if $ch eq '"' and not $flag
1036 0 0 if ($ch eq '\\' and not $flag)
1042 0 0 $flag ? :
1048 0 0 unless $_[0]
1067 0 0 unless $_[0] =~ s/^(\S+)//
1088 0 0 if ($ch eq '.')
1091 0 0 if $dot > 1 or $exp
1093 0 0 if (uc $ch eq 'E')
1096 0 0 if $exp > 1
1102 0 0 unless $val =~ /\d$/
1122 0 0 if ($ch eq '(')
1124 0 0 unless $_[0] =~ /^\)/
1128 0 0 if (defined $val)
1133 0 0 if $sum
1141 0 0 if $sum
1150 0 0 if ('+-*/!&_#' =~ /$qch/)
1157 0 0 if ($ch eq q['])
1159 0 0 if ($_[0] =~ /^\=\<\>/)
1164 0 0 if ('=<>' =~ /$qch/)
1169 0 0 if ($ch =~ /\[\]/)
1172 0 0 if $ch eq '['
1175 0 0 unless $sum
1177 0 0 if $sum
1178 0 0 if $_[2] and $_[0] =~ /^\s/
1217 0 0 unless $first or $_[0] =~ s/^,//
1222 0 0 if $_[3] and not $proto
1227 0 0 if $proto =~ s/^(.)//
1228 0 0 if $typ eq 'L'
1231 0 0 if $typ eq 'T'
1251 0 0 unless $_[0] =~ s/^(\d+|(?:[a-z]\w*)?\+\d+|[a-z]\w*)//i
1267 0 0 if ($_[0] =~ /^\)/)
1268 0 0 if $_[2]
1274 0 0 if $proto eq 'T'
1275 0 0 if $sum
1297 0 0 unless $first or $_[0] =~ s/^$delim//
1335 0 0 if ($src =~ s/^([$Language::Mumps::RESKEYS])//) { }
0 0 elsif ($src =~ s/^".*?"//) { }
1349 0 0 if ($src =~ s/\.//)
1353 0 0 if ($src =~ s/^(\d+)//)
1387 0 0 unless *Curses::new{'CODE'}
1388 0 0 unless $Language::Mumps::curses_inside++
1396 0 0 if ($Language::Mumps::selected_io == 5) { }
1418 0 0 $Language::Mumps::selected_io == 5 ? :
1431 0 0 $Language::Mumps::selected_io == 5 ? :
1434 0 0 unless defined $item
1435 0 0 if (UNIVERSAL::isa($item, 'ARRAY'))
1436 0 0 if ($$item[0] eq 'cls')
1440 0 0 if ($$item[0] eq 'tab')
1446 0 0 $item eq "\n" ? :
1455 0 0 if (++$i < @frags)
1469 0 0 if $Language::Mumps::xpos > $to
1487 0 0 if ($state eq 'Runtime') { }
0 0 elsif ($state =~ /^[SNG]?DBM?_File$/) { }
0 0 elsif ($state eq 'Data::Dumper') { }
0 0 elsif ($state eq 'Data::Dump') { }
0 0 elsif ($state eq 'FreezeThaw' or $state eq 'Storable') { }
0 0 elsif ($state eq 'XML::Dumper') { }
0 0 elsif ($state eq 'Data::DumpXML') { }
0 0 elsif ($state eq 'Config') { }
1496 0 0 if $@
1497 0 0 $state eq 'DB_File' ? :
1505 0 0 if $@
1512 0 0 if $@
1519 0 0 if $@
1527 0 0 if $@
1531 0 0 unless $xml
1542 0 0 if $@
1548 0 0 if -f '/etc/pmumps.cf'
1549 0 0 if -f '~/.pmumps'
1571 0 0 unless (-d 'global')
1575 0 0 unless $Language::Mumps::DB
1577 0 0 unless tie %$dbf, $Language::Mumps::DB, "global/$db.db", @Language::Mumps::TYING
1648 0 0 if $flag
1658 0 0 unless $$base{'data'} eq $val
1661 0 0 if $flag
1672 0 0 unless $$hash{$key}
1685 0 0 unless $$hash{$key}
1715 0 0 unless ($key =~ s/\0([^\0]*)$//)
1729 0 0 if $self->EXISTS($key)
1793 0 0 if @_
1794 0 0 $self->case ? :
1802 0 0 if @_
1803 0 0 unless $$self{'list'}
1811 0 0 $$self{'list'} ? :
1898 0 0 $self->isatom ? :
1997 0 0 $self->isatom ? :
2032 0 0 if @_
2048 0 0 if $$rec{'prot'} eq $prot
2050 0 0 unless $$rec{'lval'}
2072 0 0 $ch ? :
2157 0 0 if $dec
2159 0 0 $l > 0 ? :
2185 0 0 unless @sons
2186 0 0 if $right == -1
2188 0 0 if $_ gt $right
2203 0 0 if $_ >= $right or $right == -1
2215 0 0 if (ref $str eq 'varsig')
2489 0 0 unless $sth->execute
2491 0 0 if $ary =~ /^\^(.*)$/
2495 0 0 if (not $glb) { }
2528 0 0 unless defined $a2
2577 0 0 $Language::Mumps::selected_io == 5 ? :