| line |
!l |
l&&!r |
l&&r |
condition |
|
209
|
14 |
935 |
2306 |
defined $self->{'Frame'} and defined $self->{'Frame'}{$p} |
|
281
|
199 |
234 |
32 |
$self->{'Frame'}{'Code'} and $old->{'CpMove'} |
|
333
|
0 |
0 |
5 |
$pt = $self->{'Math'}->Parse($var) and @val = $self->{'Math'}->Eval($pt) |
|
375
|
26 |
0 |
0 |
$self->{'TopIsFd'} and @{$self->{'FrameStk'};} == 1 |
|
564
|
219 |
0 |
347 |
$InLine =~ /^($self->{'DirStartRE'})(\w+)\s*(.*)/ and defined $ctlDirectives{$2} || defined $self->{'subs'}{$2} |
|
612
|
0 |
0 |
46 |
$arg =~ /\S/ and $line->{'Expr'} = $self->{'Math'}->Parse($arg) |
|
616
|
0 |
147 |
100 |
defined $blkPairs{$blocks[-1]{'type'}} and $blkPairs{$blocks[-1]{'type'}} eq $dir |
|
626
|
98 |
2 |
0 |
$arg =~ /(\S+)/ and $blk->{'type'} ne $1 |
|
644
|
268 |
24 |
55 |
$dir eq 'done' and @blocks == 0 |
|
673
|
53 |
0 |
112 |
$code->{'ArgNames'} and @{$code->{'ArgNames'};} |
|
696
|
193 |
0 |
42 |
substr($arg, 0, length $self->{'DirStart'}) eq $self->{'DirStart'} and $arg =~ /^$self->{'DirStartRE'}(\w+)\s*(.*)/ |
|
752
|
0 |
35 |
158 |
$replay and exists $replay->{'Expr'} |
|
776
|
0 |
313 |
152 |
defined $self->{'Frame'} and $self->{'Frame'}{'Fd'} |
|
|
313 |
1 |
151 |
defined $self->{'Frame'} and $self->{'Frame'}{'Fd'} and ref $self->{'Frame'}{'Fd'} ne 'ARRAY' |
|
|
314 |
151 |
0 |
defined $self->{'Frame'} and $self->{'Frame'}{'Fd'} and ref $self->{'Frame'}{'Fd'} ne 'ARRAY' and $self->{'Frame'}{'Fd'}->error |
|
785
|
0 |
0 |
0 |
$self->{'Fd'} and $self->{'Fd'}->opened |
|
950
|
627 |
82 |
1657 |
/^($self->{'DirStartRE'})(\w+)\s*(.*)/ and defined $ctlDirectives{$2} || defined $self->{'subs'}{$2} |
|
968
|
1738 |
0 |
0 |
$self->{'trace'} and $frame->{'Generate'} |
|
1007
|
0 |
2 |
27 |
$frame->{'ParentGenerate'} and not $frame->{'DidGenerate'} |
|
1051
|
64 |
0 |
87 |
$replay and exists $replay->{'Expr'} |
|
1117
|
10 |
232 |
0 |
$frame->{'LoopMax'} and ++$frame->{'LoopCnt'} > $frame->{'LoopMax'} |
|
1120
|
142 |
14 |
86 |
exists $replay->{'For3'} and $frame->{'LoopCnt'} != 1 |
|
1148
|
0 |
1 |
27 |
$le and --$loops <= 0 |
|
1170
|
0 |
10 |
30 |
$ls = exists $self->{'Frame'}{'LoopStart'} and --$loops <= 0 |
|
1211
|
8 |
33 |
2 |
not defined $stream and $fn =~ /^-p(\d*)$/ |
|
1404
|
0 |
0 |
4 |
@args and exists $an{$args[0]} |
|
|
0 |
0 |
4 |
@args and exists $an{$args[0]} and @args == $an{$args[0]} |
|
1409
|
0 |
0 |
2 |
$fn = $self->ResolveFilename($args[1], 1) and @stat = stat $fn |
|
1434
|
0 |
0 |
0 |
$arg =~ /^(\w+)=(\d+)/i and $options{$1} |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
253
|
324 |
141 |
0 |
defined $self->{'Frame'}{'Code'} or defined $self->{'Frame'}{'Fd'} |
|
447
|
1 |
9 |
2464 |
$c1 eq '"' or $c1 eq q['] |
|
564
|
341 |
6 |
0 |
defined $ctlDirectives{$2} || defined $self->{'subs'}{$2} |
|
696
|
244 |
42 |
193 |
$esc = exists $replay->{'SubCond'} or substr($arg, 0, length $self->{'DirStart'}) eq $self->{'DirStart'} and $arg =~ /^$self->{'DirStartRE'}(\w+)\s*(.*)/ |
|
845
|
4 |
0 |
5 |
ref $strm eq 'IO::File' or ref $strm eq 'IO::Handle' |
|
871
|
603 |
426 |
0 |
defined $self->{'Frame'}{'Code'} or defined $self->{'Frame'}{'Fd'} |
|
950
|
1676 |
62 |
1 |
defined $ctlDirectives{$2} || defined $self->{'subs'}{$2} |
|
974
|
86 |
18 |
1634 |
$dir eq 'if' or $dir eq 'unless' |
|
996
|
26 |
3 |
1605 |
$dir eq 'elseif' or $dir eq 'elsif' |
|
998
|
28 |
1 |
0 |
$frame->{'Type'} eq 'if' or $frame->{'Type'} eq 'unless' |
|
1024
|
33 |
10 |
0 |
$frame->{'Type'} eq 'if' or $frame->{'Type'} eq 'unless' |
|
1040
|
65 |
10 |
0 |
$frame->{'Type'} eq 'if' or $frame->{'Type'} eq 'unless' |
|
1083
|
152 |
106 |
90 |
$doneDone or $frame->{'CondReRun'} |
|
1097
|
152 |
106 |
90 |
$doneDone or $frame->{'CondReRun'} |
|
1142
|
27 |
0 |
412 |
$dir eq 'break' or $dir eq 'last' |
|
1160
|
30 |
0 |
382 |
$dir eq 'continue' or $dir eq 'next' |
|
1439
|
0 |
0 |
57 |
$dir eq 'function' or $dir eq 'do' |
|
|
0 |
0 |
57 |
$dir eq 'function' or $dir eq 'do' or $dir eq 'case' |
|
|
0 |
0 |
57 |
$dir eq 'function' or $dir eq 'do' or $dir eq 'case' or $dir eq 'switch' |
|
|
0 |
0 |
57 |
$dir eq 'function' or $dir eq 'do' or $dir eq 'case' or $dir eq 'switch' or $dir eq 'endswitch' |