| line |
true |
false |
branch |
|
186
|
0 |
16891 |
if (not defined $_[1]) { } |
|
|
506 |
16385 |
elsif (not ref $_[1]) { } |
|
|
16385 |
0 |
elsif (&_SCALAR0($_[1])) { } |
|
|
0 |
0 |
elsif (&_ARRAY0($_[1])) { } |
|
192
|
506 |
0 |
if (ref $source) { } |
|
213
|
16887 |
4 |
if ($self->{'source_bytes'}) { } |
|
240
|
10 |
16881 |
if (&List::Util::any(sub {
/^__(?:DATA|END)__\s*$/;
}
, @{$$self{'source'};})) { } |
|
|
4 |
16877 |
elsif (not defined $self->{'source'}[0]) { } |
|
|
1127 |
15750 |
elsif ($self->{'source'}[-1] =~ /\s$/) { } |
|
256
|
16800 |
0 |
@_ ? : |
|
293
|
0 |
394502 |
if ($self->{'token_eof'} and $self->{'token_cursor'} > scalar @{$self->{'tokens'};}) |
|
300
|
316269 |
78233 |
if (my $token = $self->{'tokens'}[$self->{'token_cursor'}]) |
|
314
|
47948 |
21187 |
if (defined(my $token = $self->{'tokens'}[$self->{'token_cursor'}])) |
|
321
|
1 |
78232 |
if ($@) { } |
|
|
47948 |
30284 |
elsif ($rv) { } |
|
322
|
1 |
0 |
if (&_INSTANCE($@, 'PPI::Exception')) { } |
|
333
|
30284 |
0 |
if (defined $line_rv) |
|
335
|
0 |
30284 |
if (my $token = $self->{'tokens'}[$self->{'token_cursor'}]) |
|
373
|
5 |
0 |
unless ($self->{'token_eof'}) |
|
376
|
0 |
5 |
unless (defined $rv) |
|
385
|
0 |
5 |
unless ($ok) |
|
414
|
0 |
0 |
if $_[0]->get_token |
|
440
|
0 |
0 |
unless $self->{'token_cursor'} |
|
458
|
16013 |
91367 |
unless $self->{'source'} |
|
464
|
16803 |
74564 |
unless defined $line |
|
479
|
32343 |
72657 |
unless (defined $line) |
|
481
|
30289 |
2054 |
unless ($inscan) |
|
525
|
30289 |
69147 |
unless ($rv = $self->_fill_line) |
|
526
|
0 |
30289 |
unless defined $rv |
|
535
|
28255 |
40892 |
unless ($rv) |
|
537
|
310 |
27945 |
if (ref $self->{'source'} eq "ARRAY" and not @{$self->{'source'};}) |
|
542
|
28255 |
0 |
if defined $rv |
|
548
|
0 |
40891 |
unless (defined $rv) |
|
556
|
16576 |
24315 |
unless (ref $self->{'source'} eq "ARRAY" and @{$self->{'source'};}) |
|
579
|
0 |
454535 |
unless (defined $self->{'line_cursor'} and defined $self->{'line_length'}) |
|
585
|
40891 |
413644 |
if $self->_at_line_end |
|
589
|
78882 |
334761 |
unless ($result = $self->{'class'}->__TOKENIZER__on_char($self)) |
|
591
|
78882 |
0 |
defined $result ? : |
|
596
|
59061 |
275700 |
if ($result eq 1) |
|
601
|
59061 |
0 |
if (defined $self->{'token'}) { } |
|
604
|
0 |
0 |
unless defined($self->{'token'} = $self->{'class'}->new($char)) |
|
611
|
106783 |
168917 |
if ($self->{'class'} ne "PPI::Token::$result") { } |
|
|
33516 |
135401 |
elsif (defined $self->{'token'}) { } |
|
619
|
0 |
135401 |
unless defined($self->{'token'} = $self->{'class'}->new($char)) |
|
641
|
30291 |
377453 |
unless defined $self->{'token'} |
|
656
|
10533 |
231517 |
substr($_[0], 0, 12) eq 'PPI::Token::' ? : |
|
660
|
103214 |
138836 |
if defined $self->{'token'} |
|
663
|
0 |
242050 |
unless defined($self->{'token'} = $class->new($_[0])) |
|
675
|
70 |
16821 |
if $self->{'token'} |
|
681
|
0 |
16891 |
unless (length $last_token->{'content'}) |
|
687
|
15478 |
1413 |
if ($self->{'source_eof_chop'}) |
|
690
|
13205 |
2273 |
unless (length $last_token->{'content'}) |
|
720
|
2689 |
1487 |
if $token->significant |
|
736
|
88042 |
160199 |
unless $token->significant |
|
738
|
115480 |
44719 |
if @tokens >= $count |
|
777
|
132 |
7173 |
unless $p0 |
|
781
|
4916 |
2257 |
if defined $OBVIOUS_CLASS{$c0} |
|
782
|
575 |
1682 |
if defined $OBVIOUS_CONTENT{$p0} |
|
785
|
206 |
1476 |
if $p0->isa("PPI::Token::Operator") |
|
788
|
0 |
1476 |
if $p0->content eq "" |
|
798
|
203 |
905 |
unless @{$self->{'tokens'};} |
|
801
|
0 |
905 |
unless $prev |
|
803
|
159 |
746 |
if $prev->isa("PPI::Token::Word") |
|
822
|
8867 |
24388 |
if (not $prev) { } |
|
830
|
129 |
24259 |
if $content eq "->" |
|
836
|
228 |
24031 |
if $content eq "{" and $t->{'line'} =~ /\G\s*\}/cg |
|
845
|
5631 |
18400 |
if ($USUALLY_FORCES{$content}) |
|
846
|
10 |
18 |
if defined $word and $word =~ /^v[0-9]+$/ and $content eq 'use' || $content eq 'no' |
|
847
|
5385 |
236 |
unless $prevprev |
|
848
|
230 |
6 |
if not $USUALLY_FORCES{$prevprev->content} and $prevprev->content ne "->" |
|
857
|
790 |
26477 |
if $t->{'line'} =~ /\G\s*=>/cg |
|
865
|
35 |
0 |
@_ ? : |