| line |
true |
false |
branch |
|
54
|
0 |
19 |
if exists $self->{'VERSION'} and $self->{'VERSION'} < $Parse::Yapp::Driver::COMPATIBLE |
|
59
|
0 |
19 |
if ref $class |
|
71
|
1 |
21 |
if ($self->{'DEBUG'}) { } |
|
74
|
0 |
1 |
if $@ |
|
86
|
1 |
488 |
unless exists $self->{'USER'} |
|
138
|
6 |
0 |
if $index < 0 and -$index <= @{$self->{'STACK'};} |
|
147
|
0 |
0 |
if @_ |
|
155
|
0 |
0 |
if @_ |
|
184
|
0 |
101 |
unless exists $checklist->{$prm} |
|
186
|
0 |
101 |
unless ref $value eq $checklist->{$prm} |
|
192
|
0 |
66 |
unless exists $outhash->{$_} |
|
206
|
0 |
1 |
if exists do {
'Parse::Yapp::Driver::'
}->{'_DBParse'} |
|
210
|
0 |
1 |
unless open DRV, "<$fname" |
|
213
|
243 |
230 |
if (/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/) |
|
221
|
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 |
|
269
|
6037 |
10302 |
if (exists $actions->{'ACTIONS'}) { } |
|
272
|
4183 |
1854 |
unless (defined $$token) |
|
282
|
1841 |
13 |
exists $actions->{'DEFAULT'} ? : |
|
|
4183 |
1854 |
exists $actions->{'ACTIONS'}{$$token} ? : |
|
291
|
16324 |
15 |
if (defined $act) |
|
294
|
4171 |
12153 |
if ($act > 0) |
|
300
|
3 |
4168 |
if ($$errstatus) |
|
315
|
4150 |
21 |
if $$token ne '' |
|
328
|
21 |
12132 |
unless $act |
|
334
|
3 |
12150 |
if (unpack('A1', $lhs) eq '@') |
|
335
|
0 |
3 |
unless $lhs =~ /^\@[0-9]+\-([0-9]+)$/ |
|
342
|
11931 |
222 |
$$dotpos ? : |
|
345
|
3114 |
108 |
@sempar ? : |
|
|
8931 |
3222 |
$code ? : |
|
351
|
21 |
12132 |
if ($$check eq 'ACCEPT') |
|
360
|
0 |
12132 |
if ($$check eq 'ABORT') |
|
373
|
12132 |
0 |
unless ($$check eq 'ERROR') |
|
401
|
3 |
12 |
unless ($$errstatus) |
|
405
|
0 |
3 |
unless $$errstatus |
|
419
|
12 |
3 |
if ($$errstatus == 3) |
|
421
|
0 |
12 |
if ($$token eq '') |
|
447
|
0 |
15 |
unless (@$stack) |