| line |
true |
false |
branch |
|
183
|
0 |
16855 |
if (not defined $_[1]) { } |
|
|
502 |
16353 |
elsif (not ref $_[1]) { } |
|
|
16353 |
0 |
elsif (&_SCALAR0($_[1])) { } |
|
|
0 |
0 |
elsif (&_ARRAY0($_[1])) { } |
|
189
|
502 |
0 |
if (ref $source) { } |
|
210
|
16851 |
4 |
if ($self->{'source_bytes'}) { } |
|
237
|
10 |
16845 |
if (&List::Util::any(sub {
/^__(?:DATA|END)__\s*$/;
}
, @{$$self{'source'};})) { } |
|
|
4 |
16841 |
elsif (not defined $self->{'source'}[0]) { } |
|
|
1086 |
15755 |
elsif ($self->{'source'}[-1] =~ /\s$/) { } |
|
285
|
0 |
381789 |
if ($self->{'token_eof'} and $self->{'token_cursor'} > scalar @{$self->{'tokens'};}) |
|
292
|
305184 |
76605 |
if (my $token = $self->{'tokens'}[$self->{'token_cursor'}]) |
|
306
|
46591 |
20760 |
if (defined(my $token = $self->{'tokens'}[$self->{'token_cursor'}])) |
|
313
|
1 |
76604 |
if ($@) { } |
|
|
46591 |
30013 |
elsif ($rv) { } |
|
314
|
1 |
0 |
if (&_INSTANCE($@, 'PPI::Exception')) { } |
|
325
|
30013 |
0 |
if (defined $line_rv) |
|
327
|
0 |
30013 |
if (my $token = $self->{'tokens'}[$self->{'token_cursor'}]) |
|
365
|
4 |
0 |
unless ($self->{'token_eof'}) |
|
368
|
0 |
4 |
unless (defined $rv) |
|
377
|
0 |
4 |
unless ($ok) |
|
406
|
0 |
0 |
if $_[0]->get_token |
|
432
|
0 |
0 |
unless $self->{'token_cursor'} |
|
450
|
15784 |
89427 |
unless $self->{'source'} |
|
456
|
16769 |
72658 |
unless defined $line |
|
471
|
32077 |
70817 |
unless (defined $line) |
|
473
|
30017 |
2060 |
unless ($inscan) |
|
517
|
30017 |
67362 |
unless ($rv = $self->_fill_line) |
|
518
|
0 |
30017 |
unless defined $rv |
|
527
|
27787 |
39575 |
unless ($rv) |
|
529
|
307 |
27480 |
if (ref $self->{'source'} eq "ARRAY" and not @{$self->{'source'};}) |
|
534
|
27787 |
0 |
if defined $rv |
|
540
|
0 |
39574 |
unless (defined $rv) |
|
548
|
16543 |
23031 |
unless (ref $self->{'source'} eq "ARRAY" and @{$self->{'source'};}) |
|
571
|
0 |
435850 |
unless (defined $self->{'line_cursor'} and defined $self->{'line_length'}) |
|
577
|
39574 |
396276 |
if $self->_at_line_end |
|
581
|
76267 |
320008 |
unless ($result = $self->{'class'}->__TOKENIZER__on_char($self)) |
|
583
|
76267 |
0 |
defined $result ? : |
|
588
|
57848 |
262160 |
if ($result eq 1) |
|
593
|
57848 |
0 |
if (defined $self->{'token'}) { } |
|
596
|
0 |
0 |
unless defined($self->{'token'} = $self->{'class'}->new($char)) |
|
603
|
102240 |
159920 |
if ($self->{'class'} ne "PPI::Token::$result") { } |
|
|
29378 |
130542 |
elsif (defined $self->{'token'}) { } |
|
611
|
0 |
130542 |
unless defined($self->{'token'} = $self->{'class'}->new($char)) |
|
633
|
30019 |
364992 |
unless defined $self->{'token'} |
|
648
|
9330 |
225118 |
substr($_[0], 0, 12) eq 'PPI::Token::' ? : |
|
652
|
99203 |
135245 |
if defined $self->{'token'} |
|
655
|
0 |
234448 |
unless defined($self->{'token'} = $class->new($_[0])) |
|
667
|
69 |
16785 |
if $self->{'token'} |
|
673
|
0 |
16854 |
unless (length $last_token->{'content'}) |
|
679
|
15480 |
1374 |
if ($self->{'source_eof_chop'}) |
|
682
|
13189 |
2291 |
unless (length $last_token->{'content'}) |
|
712
|
2703 |
1416 |
if $token->significant |
|
728
|
84477 |
155677 |
unless $token->significant |
|
730
|
112109 |
43568 |
if @tokens >= $count |
|
769
|
115 |
6877 |
unless $p0 |
|
773
|
4715 |
2162 |
if defined $OBVIOUS_CLASS{$c0} |
|
774
|
545 |
1617 |
if defined $OBVIOUS_CONTENT{$p0} |
|
777
|
209 |
1408 |
if $p0->isa("PPI::Token::Operator") |
|
780
|
0 |
1408 |
if $p0->content eq "" |
|
790
|
199 |
872 |
unless @{$self->{'tokens'};} |
|
793
|
2 |
870 |
unless $prev |
|
795
|
162 |
708 |
if $prev->isa("PPI::Token::Word") |
|
814
|
8829 |
23780 |
if (not $prev) { } |
|
822
|
129 |
23651 |
if $content eq "->" |
|
828
|
228 |
23423 |
if $content eq "{" and $t->{'line'} =~ /\G\s*\}/cg |
|
837
|
5631 |
17792 |
if ($USUALLY_FORCES{$content}) |
|
838
|
10 |
18 |
if defined $word and $word =~ /^v[0-9]+$/ and $content eq 'use' || $content eq 'no' |
|
839
|
5385 |
236 |
unless $prevprev |
|
840
|
230 |
6 |
if not $USUALLY_FORCES{$prevprev->content} and $prevprev->content ne "->" |
|
849
|
790 |
25831 |
if $t->{'line'} =~ /\G\s*=>/cg |