| line |
true |
false |
branch |
|
24
|
0 |
0 |
if (@_) { } |
|
25
|
0 |
0 |
wantarray ? : |
|
43
|
0 |
24 |
if $debug |
|
44
|
0 |
24 |
if $debug and ref $_[1] |
|
80
|
0 |
4 |
unless (defined $inpkg) |
|
86
|
0 |
4 |
if ($^W and defined ${"$inpkg" . '::' . "$name";}) |
|
100
|
0 |
3 |
unless (defined $_[0]) |
|
111
|
0 |
3 |
if (ref $_[0] eq 'ARRAY') { } |
|
117
|
0 |
0 |
if (ref $arg and $arg->isa('Parse::Token')) { } |
|
|
0 |
0 |
elsif ($arg =~ /^[Tt]ype$/) { } |
|
120
|
0 |
0 |
if (@specif) |
|
122
|
0 |
0 |
unless ($token_class->isa('Parse::Token')) |
|
124
|
0 |
0 |
if ($@) |
|
129
|
0 |
0 |
if $debug |
|
138
|
0 |
0 |
if (@specif) |
|
140
|
0 |
0 |
if $debug |
|
148
|
0 |
4 |
if (ref $arg and $arg->isa('Parse::Token')) { } |
|
152
|
1 |
3 |
if (@_) { } |
|
154
|
0 |
1 |
if ($ref and $ref eq 'CODE') { } |
|
162
|
4 |
0 |
if (not ref $regexp eq 'ARRAY') { } |
|
177
|
0 |
24 |
if ($name =~ /^(.+:)(.+)/) |
|
184
|
6 |
0 |
if (defined $_[0]) { } |
|
201
|
0 |
6 |
if (@_) { } |
|
209
|
0 |
0 |
if (@_) { } |
|
217
|
0 |
2 |
if (@_) { } |
|
225
|
0 |
0 |
unless ref $self |
|
226
|
0 |
0 |
if $Parse::Token::AUTOLOAD =~ /\bDESTROY$/ |
|
230
|
0 |
0 |
if (defined $value) { } |
|
245
|
4 |
4 |
if (defined $_[0]) { } |
|
256
|
0 |
0 |
defined $_[1] ? : |
|
274
|
0 |
2 |
defined $_[1] ? : |
|
298
|
4 |
6 |
if (defined $_[1]) { } |
|
311
|
6 |
0 |
if $type->isa("Parse::$_") |
|
331
|
0 |
0 |
if ($pendingToken == $Parse::Token::EOI) |
|
332
|
0 |
0 |
$self == $Parse::Token::EOI ? : |
|
335
|
0 |
0 |
unless $pendingToken |
|
336
|
0 |
0 |
if ($self == $$lexer[$Parse::Token::PENDING_TOKEN]) { } |
|
357
|
0 |
0 |
if ($pendingToken == $Parse::Token::EOI) |
|
359
|
0 |
0 |
$self == $Parse::Token::EOI ? : |
|
361
|
0 |
0 |
unless $pendingToken |
|
362
|
0 |
0 |
if ($self == $$lexer[$Parse::Token::PENDING_TOKEN]) { } |
|
395
|
0 |
0 |
unless (@_ >= 2) |
|
404
|
0 |
0 |
if ($key =~ /^[Nn]ame$/) { } |
|
|
0 |
0 |
elsif ($key =~ /^[Ee]xpr$/) { } |
|
444
|
0 |
4 |
unless (@_ >= 2) |
|
453
|
4 |
8 |
if ($key =~ /^[Nn]ame$/) { } |
|
|
4 |
4 |
elsif ($key =~ /^(?:[Rr]egexp?|[Rr]e)$/) { } |
|
|
0 |
4 |
elsif ($key =~ /^[Rr]eadMore$/) { } |
|
|
4 |
0 |
elsif ($key =~ /^[Ss]ub$/) { } |
|
|
0 |
0 |
elsif ($key =~ /^[Hh]andler$/) { } |
|
459
|
0 |
0 |
$value == 1 ? : |
|
643
|
0 |
6 |
$self->action ? : |
|
644
|
4 |
2 |
$lexer->isFromString ? : |
|
646
|
6 |
0 |
$handler =~ /::/ ? : |
|
665
|
0 |
6 |
if ($debug) |
|
687
|
0 |
0 |
unless (@_ >= 2) |
|
696
|
0 |
0 |
if ($key =~ /^[Nn]ame$/) { } |
|
|
0 |
0 |
elsif ($key =~ /^(?:[Rr]egexp?|[Rr]e)$/) { } |
|
|
0 |
0 |
elsif ($key =~ /^[Ss]ub$/) { } |
|
|
0 |
0 |
elsif ($key =~ /^[Hh]andler$/) { } |
|
949
|
0 |
0 |
$handler =~ /::/ ? : |
|
954
|
0 |
0 |
$self->action ? : |
|
973
|
0 |
0 |
if $debug |
|
975
|
0 |
0 |
if ($#{$regexp;} >= 3) |
|
983
|
0 |
0 |
${$regexp;}[1] ? : |
|
991
|
0 |
0 |
if ($debug) |
|
1014
|
0 |
0 |
unless (@_ >= 2) |
|
1023
|
0 |
0 |
if ($key =~ /^[Nn]ame$/) { } |
|
|
0 |
0 |
elsif ($key =~ /^[Ss]tart$/) { } |
|
|
0 |
0 |
elsif ($key =~ /^[Ee]nd$/) { } |
|
|
0 |
0 |
elsif ($key =~ /^[Ss]ub$/) { } |
|
|
0 |
0 |
elsif ($key =~ /^[Hh]andler$/) { } |
|
1027
|
0 |
0 |
unless defined $end |
|
1030
|
0 |
0 |
unless defined $start |
|
1040
|
0 |
0 |
unless (defined $start) |
|
1044
|
0 |
0 |
unless (defined $end) |
|
1066
|
0 |
0 |
unless (@_ >= 2) |
|
1076
|
0 |
0 |
if ($key =~ /^[Nn]ame$/) { } |
|
|
0 |
0 |
elsif ($key =~ /^[Qq]uote$/) { } |
|
|
0 |
0 |
elsif ($key =~ /^[Ss]tart$/) { } |
|
|
0 |
0 |
elsif ($key =~ /^[Ee]nd$/) { } |
|
|
0 |
0 |
elsif ($key =~ /^[Ee]scape$/) { } |
|
|
0 |
0 |
elsif ($key =~ /^[Ss]ub$/) { } |
|
|
0 |
0 |
elsif ($key =~ /^[Hh]andler$/) { } |
|
1079
|
0 |
0 |
unless defined $start |
|
1080
|
0 |
0 |
unless defined $end |
|
1083
|
0 |
0 |
unless defined $end |
|
1086
|
0 |
0 |
unless defined $start |
|
1098
|
0 |
0 |
unless (defined $start) |
|
1102
|
0 |
0 |
unless (defined $end) |
|
1118
|
0 |
0 |
if (defined $escape and $escape ne '') { } |