| line |
true |
false |
branch |
|
53
|
0 |
19 |
if exists $self->{'VERSION'} and $self->{'VERSION'} < $Parse::Yapp::Driver::COMPATIBLE |
|
58
|
0 |
19 |
if ref $class |
|
70
|
1 |
21 |
if ($self->{'DEBUG'}) { } |
|
73
|
0 |
1 |
if $@ |
|
85
|
1 |
488 |
unless exists $self->{'USER'} |
|
137
|
6 |
0 |
if $index < 0 and -$index <= @{$self->{'STACK'};} |
|
146
|
0 |
0 |
if @_ |
|
154
|
0 |
0 |
if @_ |
|
183
|
0 |
101 |
unless exists $checklist->{$prm} |
|
185
|
0 |
101 |
unless ref $value eq $checklist->{$prm} |
|
191
|
0 |
66 |
unless exists $outhash->{$_} |
|
205
|
0 |
1 |
if exists do {
'Parse::Yapp::Driver::'
}->{'_DBParse'} |
|
209
|
0 |
1 |
unless open DRV, "<$fname" |
|
212
|
243 |
229 |
if (/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/) |
|
220
|
4 |
51 |
ord $_ < 32 || ord $_ > 126 ? : |
|
|
59 |
0 |
if $debug & 2 |
|
|
59 |
0 |
if $debug & 8 |
|
|
30 |
0 |
if $debug & 1 |
|
|
30 |
11 |
unless (defined $$token) |
|
|
10 |
3 |
exists $actions->{'DEFAULT'} ? : |
|
|
28 |
13 |
exists $actions->{'ACTIONS'}{$$token} ? : |
|
|
18 |
0 |
if $debug & 1 |
|
|
41 |
18 |
if (exists $actions->{'ACTIONS'}) { } |
|
|
28 |
0 |
if $debug & 4 |
|
|
0 |
1 |
if ($debug & 16 and $dbgerror and $$errstatus == 0) |
|
|
1 |
27 |
if ($$errstatus) |
|
|
27 |
1 |
if $$token ne '' |
|
|
28 |
28 |
if ($act > 0) |
|
|
27 |
1 |
if $debug & 4 and $act |
|
|
1 |
27 |
unless $act |
|
|
0 |
0 |
unless $lhs =~ /^\@[0-9]+\-([0-9]+)$/ |
|
|
0 |
28 |
if (unpack('A1', $lhs) eq '@') |
|
|
27 |
1 |
$$dotpos ? : |
|
|
7 |
1 |
@sempar ? : |
|
|
20 |
8 |
$code ? : |
|
|
1 |
0 |
if $debug & 4 |
|
|
1 |
27 |
if ($$check eq 'ACCEPT') |
|
|
0 |
0 |
if $debug & 4 |
|
|
0 |
27 |
if ($$check eq 'ABORT') |
|
|
27 |
0 |
if $debug & 4 |
|
|
27 |
0 |
if $debug & 4 |
|
|
1 |
26 |
if ($debug & 16 and $dbgerror and $$errstatus == 0) |
|
|
27 |
0 |
unless ($$check eq 'ERROR') |
|
|
0 |
0 |
if $debug & 4 |
|
|
56 |
3 |
if (defined $act) |
|
|
0 |
1 |
unless $$errstatus |
|
|
1 |
0 |
if ($debug & 16) |
|
|
1 |
2 |
unless ($$errstatus) |
|
|
0 |
0 |
if $debug & 16 |
|
|
0 |
2 |
if ($$token eq '') |
|
|
2 |
0 |
if $debug & 16 |
|
|
2 |
1 |
if ($$errstatus == 3) |
|
|
3 |
0 |
if $debug & 16 |
|
|
0 |
0 |
if $debug & 16 |
|
|
0 |
3 |
unless (@$stack) |
|
|
3 |
0 |
if $debug & 16 |
|
268
|
6037 |
10302 |
if (exists $actions->{'ACTIONS'}) { } |
|
271
|
4183 |
1854 |
unless (defined $$token) |
|
281
|
1841 |
13 |
exists $actions->{'DEFAULT'} ? : |
|
|
4183 |
1854 |
exists $actions->{'ACTIONS'}{$$token} ? : |
|
290
|
16324 |
15 |
if (defined $act) |
|
293
|
4171 |
12153 |
if ($act > 0) |
|
299
|
3 |
4168 |
if ($$errstatus) |
|
314
|
4150 |
21 |
if $$token ne '' |
|
327
|
21 |
12132 |
unless $act |
|
333
|
3 |
12150 |
if (unpack('A1', $lhs) eq '@') |
|
334
|
0 |
3 |
unless $lhs =~ /^\@[0-9]+\-([0-9]+)$/ |
|
341
|
11931 |
222 |
$$dotpos ? : |
|
344
|
3114 |
108 |
@sempar ? : |
|
|
8931 |
3222 |
$code ? : |
|
350
|
21 |
12132 |
if ($$check eq 'ACCEPT') |
|
359
|
0 |
12132 |
if ($$check eq 'ABORT') |
|
372
|
12132 |
0 |
unless ($$check eq 'ERROR') |
|
400
|
3 |
12 |
unless ($$errstatus) |
|
404
|
0 |
3 |
unless $$errstatus |
|
418
|
12 |
3 |
if ($$errstatus == 3) |
|
420
|
0 |
12 |
if ($$token eq '') |
|
446
|
0 |
15 |
unless (@$stack) |