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