| line |
true |
false |
branch |
|
185
|
0 |
16891 |
if (not defined $_[1]) { }
|
|
|
506 |
16385 |
elsif (not ref $_[1]) { }
|
|
|
16385 |
0 |
elsif (&_SCALAR0($_[1])) { }
|
|
|
0 |
0 |
elsif (&_ARRAY0($_[1])) { }
|
|
191
|
506 |
0 |
if (ref $source) { }
|
|
212
|
16887 |
4 |
if ($self->{'source_bytes'}) { }
|
|
239
|
10 |
16881 |
if (&List::Util::any(sub {
|
|
|
4 |
16877 |
elsif (not defined $self->{'source'}[0]) { }
|
|
|
1128 |
15749 |
elsif ($self->{'source'}[-1] =~ /\s$/) { }
|
|
255
|
16801 |
1290 |
@_ ? :
|
|
292
|
0 |
393053 |
if ($self->{'token_eof'} and $self->{'token_cursor'} > scalar @{$self->{'tokens'};})
|
|
299
|
314867 |
78186 |
if (my $token = $self->{'tokens'}[$self->{'token_cursor'}])
|
|
313
|
47901 |
21172 |
if (defined(my $token = $self->{'tokens'}[$self->{'token_cursor'}]))
|
|
320
|
1 |
78185 |
if ($@) { }
|
|
|
47901 |
30284 |
elsif ($rv) { }
|
|
321
|
1 |
0 |
if (&_INSTANCE($@, 'PPI::Exception')) { }
|
|
332
|
30284 |
0 |
if (defined $line_rv)
|
|
334
|
0 |
30284 |
if (my $token = $self->{'tokens'}[$self->{'token_cursor'}])
|
|
372
|
5 |
0 |
unless ($self->{'token_eof'})
|
|
375
|
0 |
5 |
unless (defined $rv)
|
|
384
|
0 |
5 |
unless ($ok)
|
|
413
|
0 |
0 |
if $_[0]->get_token
|
|
439
|
0 |
0 |
unless $self->{'token_cursor'}
|
|
457
|
16028 |
91268 |
unless $self->{'source'}
|
|
463
|
16803 |
74465 |
unless defined $line
|
|
478
|
32358 |
72562 |
unless (defined $line)
|
|
480
|
30289 |
2069 |
unless ($inscan)
|
|
524
|
30289 |
69085 |
unless ($rv = $self->_fill_line)
|
|
525
|
0 |
30289 |
unless defined $rv
|
|
534
|
28249 |
40836 |
unless ($rv)
|
|
536
|
311 |
27938 |
if (ref $self->{'source'} eq "ARRAY" and not @{$self->{'source'};})
|
|
541
|
28249 |
0 |
if defined $rv
|
|
547
|
0 |
40835 |
unless (defined $rv)
|
|
555
|
16575 |
24260 |
unless (ref $self->{'source'} eq "ARRAY" and @{$self->{'source'};})
|
|
578
|
0 |
453121 |
unless (defined $self->{'line_cursor'} and defined $self->{'line_length'})
|
|
584
|
40835 |
412286 |
if $self->_at_line_end
|
|
588
|
78337 |
333948 |
unless ($result = $self->{'class'}->__TOKENIZER__on_char($self))
|
|
590
|
78337 |
0 |
defined $result ? :
|
|
595
|
58959 |
274989 |
if ($result eq 1)
|
|
600
|
58959 |
0 |
if (defined $self->{'token'}) { }
|
|
603
|
0 |
0 |
unless defined($self->{'token'} = $self->{'class'}->new($char))
|
|
610
|
106352 |
168637 |
if ($self->{'class'} ne "PPI::Token::$result") { }
|
|
|
33425 |
135212 |
elsif (defined $self->{'token'}) { }
|
|
618
|
0 |
135212 |
unless defined($self->{'token'} = $self->{'class'}->new($char))
|
|
640
|
30291 |
375995 |
unless defined $self->{'token'}
|
|
655
|
10519 |
230262 |
substr($_[0], 0, 12) eq 'PPI::Token::' ? :
|
|
659
|
102650 |
138131 |
if defined $self->{'token'}
|
|
662
|
0 |
240781 |
unless defined($self->{'token'} = $class->new($_[0]))
|
|
674
|
73 |
16818 |
if $self->{'token'}
|
|
680
|
0 |
16891 |
unless (length $last_token->{'content'})
|
|
686
|
15477 |
1414 |
if ($self->{'source_eof_chop'})
|
|
689
|
13196 |
2281 |
unless (length $last_token->{'content'})
|
|
719
|
2726 |
1473 |
if $token->significant
|
|
735
|
119119 |
291122 |
unless $token->significant
|
|
737
|
130287 |
160835 |
if @tokens >= $count
|
|
776
|
119 |
7136 |
unless $p0
|
|
780
|
4880 |
2256 |
if defined $OBVIOUS_CLASS{$c0}
|
|
781
|
568 |
1688 |
if defined $OBVIOUS_CONTENT{$p0}
|
|
784
|
205 |
1483 |
if $p0->isa("PPI::Token::Operator")
|
|
787
|
0 |
1483 |
if $p0->content eq ""
|
|
797
|
207 |
912 |
unless @{$self->{'tokens'};}
|
|
800
|
0 |
912 |
unless $prev
|
|
802
|
157 |
755 |
if $prev->isa("PPI::Token::Word")
|
|
821
|
8864 |
24260 |
if (not $prev) { }
|
|
829
|
129 |
24131 |
if $content eq "->"
|
|
835
|
227 |
23904 |
if $content eq "{" and $t->{'line'} =~ /\G\s*\}/cg
|
|
844
|
5631 |
18273 |
if ($USUALLY_FORCES{$content})
|
|
845
|
10 |
18 |
if defined $word and $word =~ /^v[0-9]+$/ and $content eq 'use' || $content eq 'no'
|
|
846
|
5385 |
236 |
unless $prevprev
|
|
847
|
230 |
6 |
if not $USUALLY_FORCES{$prevprev->content} and $prevprev->content ne "->"
|
|
856
|
790 |
26347 |
if $t->{'line'} =~ /\G\s*=>/cg
|
|
871
|
1296 |
22774 |
if @tokens < $tokens_to_get
|