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