Branch Coverage

blib/lib/Lingua/tlhInganHol/yIghun.pm
Criterion Covered Total %
branch 47 218 21.5


line true false branch
51 0 28 unless $_[0]
52 0 28 unless my(@bits) = $_[0] =~ /$number/
53 0 28 $bits[-1] && $bits[-1] =~ s/^DoD\s*// ? :
68 0 0 $decimal ? :
70 0 0 unless grep $_, @bits
75 0 0 unless $_
77 0 0 if $order > 1
81 0 0 if @decimals
86 0 0 ref $_[0] eq 'GLOB' ? :
87 0 0 unless @_
88 0 0 defined $_ ? :
92 0 0 if ($handle) { }
97 0 0 ref $_[0] eq 'GLOB' ? :
99 0 0 if ($handle) { }
101 0 0 unless defined $input
136 0 0 unless $$block{'trans'}
137 0 0 unless $$name{'trans'}
298 0 0 if $$arg{'object'}
321 0 1 if $$arg{'object'}
322 0 1 if $$arg{'type'} =~ /handle$/
339 0 0 if $$arg1{'object'}
359 0 0 if $$arg1{'object'}
361 0 0 if $$arg1{'type'} =~ /handle$/
379 0 0 if substr($$func{'raw'}, 0, 3) eq 'Suq' and $1 eq '@'
381 0 0 if substr($$func{'raw'}, 0, 3) eq 'DIch' and $1 eq '%'
412 0 0 if $$arg1{'object'}
414 0 0 if $args
422 0 3 if $arg1 and $$arg1{'object'}
424 2 1 if $args
425 3 0 if $arg1
433 0 0 if $arg1 and $$arg1{'object'}
435 0 0 if $args
436 0 0 if $arg1
456 0 1 if $$arg1{'object'}
458 0 1 if $$arg1{'type'} =~ /handle$/
460 1 0 if $args
601 0 70 if $DEBUG
603 0 70 if $type eq 'object'
604 0 70 if ($type eq 'acc' and @stack and $stack[-1]{'type'} eq 'noun_conj') { }
613 0 70 if $object
620 16 44 unless @stack and grep(($_ eq $stack[-1]{'type'}), @_)
625 45 0 ref $_ ? :
635 0 0 unless my $name = top('acc')
644 0 0 unless @stack
648 0 0 if ($$name{'type'} eq 'block') { }
657 0 0 if ($$name{'trans'}) { }
663 0 2 unless my $name = top('acc')
684 1 1 if $list[0]{'type'} eq 'block'
692 0 0 unless my $name = top('acc', 'block')
700 0 0 unless my $pattern = top('acc')
702 0 0 unless my $expr = top('acc')
710 0 0 unless my $becomes = top('acc')
712 0 0 unless my $pattern = top('acc')
714 0 0 unless my $expr = top('dat')
722 0 0 unless my $arg = top('acc') or $$func{'raw'} =~ /$v_arg0/
731 0 1 unless my $arg = top('dat', 'abl', 'dat_handle', 'abl_handle') or $func =~ /$v_arg0/
736 0 1 if ($HONOURABLE and $$func{'trans'} =~ /print|readline/)
739 0 0 if ($arg and $$arg{'type'} =~ s/_handle$//)
748 0 0 unless my $arg2 = top('acc')
750 0 0 unless my $arg1 = top('acc')
758 0 0 unless my $arg2 = top('acc')
760 0 0 unless my $arg1 = top('dat', 'abl', 'dat_handle', 'abl_handle')
769 0 0 unless my $arg2 = top('acc')
771 0 0 unless my $arg1 = top('abl')
774 0 0 $$func{'raw'} =~ /vo'$/ ? :
0 0 $$func{'raw'} =~ /vaD$/ ? :
781 0 0 unless my $arg1 = top('acc')
789 0 0 unless my $arg1 = top('dat')
797 0 0 unless my $arg1 = top('dat')
805 0 2 unless my $arg2 = top('acc')
807 0 2 unless my $arg1 = top('acc')
815 0 5 unless my $arg2 = top('acc', 'dat')
817 0 5 unless my $arg1 = top('dat')
825 0 0 unless my $iffalse = top('acc')
827 0 0 unless my $iftrue = top('acc')
829 0 0 unless my $cond = top('acc')
840 0 2 unless my $arg = top('acc', 'dat', 'abl_handle', 'dat_handle')
842 1 1 if $$arg{'type'} eq 'dat'
843 0 1 if $first and $$arg{'list'}
847 0 1 if ($HONOURABLE and $$func{'trans'} =~ /print|readline/)
850 0 0 if (@args and $args[0]{'type'} =~ s/_handle$//)
862 0 0 unless my $arg = top('acc')
864 0 0 if $$arg{'object'}
865 0 0 if $first and $$arg{'list'}
869 0 0 if ($HONOURABLE and $$func{'trans'} eq 'print')
872 0 0 if (@args and $args[0]{'type'} =~ s/_handle$//)
884 3 6 unless my $arg = top('acc', 'dat')
886 0 6 if $first and $$arg{'list'}
887 0 6 if $$arg{'object'}
890 2 1 @args > 1 ? :
899 0 0 unless my $arg = top('acc', 'dat')
901 0 0 if $first and $$arg{'list'}
902 0 0 if $$arg{'object'}
905 0 0 @args > 1 ? :
911 0 1 unless my $condition = top('acc', 'dat')
913 0 1 unless my $block = top('block')
923 0 0 unless @stack and $stack[-1]{'type'} =~ /^(acc|dat)$/
930 0 0 @stack ? :
0 13 unless my $cmd = top('cmd', 'acc', 'dat')
936 0 0 @stack ? :
0 0 unless my $left = top('cmd', 'acc', 'dat')
951 0 2 if $DEBUG
952 0 0 unless top('start of block') or @stack and die "betleH HivtaH Sampa' veQ: $stack[0]{'raw'}\n "
976 0 1 if $DEBUG
979 0 26 unless @stack
982 1 25 if $$arg{'type'} eq 'start of list'
1007 0 0 unless my $arg = top('acc')
1013 0 0 unless my $arg = top('acc')
1015 0 0 unless my $greater = top('greater')