| 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') |