| line |
true |
false |
branch |
|
186
|
515 |
16418 |
if (not ref $_[1]) { } |
|
|
16415 |
3 |
elsif (&_SCALAR0($_[1])) { } |
|
|
3 |
0 |
elsif (&_ARRAY0($_[1])) { } |
|
188
|
2 |
513 |
unless ref $source |
|
205
|
16927 |
4 |
if ($self->{'source_bytes'}) { } |
|
232
|
10 |
16921 |
if (&List::Util::any(sub {
/^__(?:DATA|END)__\s*$/;
}
, @{$$self{'source'};})) { } |
|
|
4 |
16917 |
elsif (not defined $self->{'source'}[0]) { } |
|
|
1130 |
15787 |
elsif ($self->{'source'}[-1] =~ /\s$/) { } |
|
248
|
16840 |
0 |
@_ ? : |
|
285
|
0 |
595948 |
if ($self->{'token_eof'} and $self->{'token_cursor'} > scalar @{$self->{'tokens'};}) |
|
292
|
513705 |
82243 |
if (my $token = $self->{'tokens'}[$self->{'token_cursor'}]) |
|
306
|
51825 |
21316 |
if (defined(my $token = $self->{'tokens'}[$self->{'token_cursor'}])) |
|
313
|
1 |
82242 |
if ($@) { } |
|
|
51825 |
30417 |
elsif ($rv) { } |
|
314
|
1 |
0 |
if (&_INSTANCE($@, 'PPI::Exception')) { } |
|
325
|
30417 |
0 |
if (defined $line_rv) |
|
327
|
0 |
30417 |
if (my $token = $self->{'tokens'}[$self->{'token_cursor'}]) |
|
365
|
5 |
0 |
unless ($self->{'token_eof'}) |
|
368
|
0 |
5 |
unless (defined $rv) |
|
377
|
0 |
5 |
unless ($ok) |
|
406
|
0 |
0 |
if $_[0]->get_token |
|
432
|
0 |
0 |
unless $self->{'token_cursor'} |
|
450
|
16105 |
95373 |
unless $self->{'source'} |
|
456
|
16843 |
78530 |
unless defined $line |
|
471
|
32475 |
76626 |
unless (defined $line) |
|
473
|
30422 |
2053 |
unless ($inscan) |
|
517
|
30422 |
73153 |
unless ($rv = $self->_fill_line) |
|
518
|
0 |
30422 |
unless defined $rv |
|
527
|
28373 |
44780 |
unless ($rv) |
|
529
|
308 |
28065 |
if (ref $self->{'source'} eq "ARRAY" and not @{$self->{'source'};}) |
|
534
|
28373 |
0 |
if defined $rv |
|
540
|
0 |
44779 |
unless (defined $rv) |
|
548
|
16618 |
28161 |
unless (ref $self->{'source'} eq "ARRAY" and @{$self->{'source'};}) |
|
571
|
0 |
703888 |
unless (defined $self->{'line_cursor'} and defined $self->{'line_length'}) |
|
577
|
44779 |
659109 |
if $self->_at_line_end |
|
581
|
93825 |
565283 |
unless ($result = $self->{'class'}->__TOKENIZER__on_char($self)) |
|
583
|
93825 |
0 |
defined $result ? : |
|
588
|
96033 |
469250 |
if ($result eq 1) |
|
593
|
96033 |
0 |
if (defined $self->{'token'}) { } |
|
596
|
0 |
0 |
unless defined($self->{'token'} = $self->{'class'}->new($char)) |
|
603
|
228343 |
240907 |
if ($self->{'class'} ne "PPI::Token::$result") { } |
|
|
44497 |
196410 |
elsif (defined $self->{'token'}) { } |
|
611
|
0 |
196410 |
unless defined($self->{'token'} = $self->{'class'}->new($char)) |
|
633
|
30424 |
578799 |
unless defined $self->{'token'} |
|
648
|
63737 |
318650 |
substr($_[0], 0, 12) eq 'PPI::Token::' ? : |
|
652
|
160054 |
222333 |
if defined $self->{'token'} |
|
655
|
0 |
382387 |
unless defined($self->{'token'} = $class->new($_[0])) |
|
667
|
70 |
16861 |
if $self->{'token'} |
|
673
|
0 |
16931 |
unless (length $last_token->{'content'}) |
|
679
|
15515 |
1416 |
if ($self->{'source_eof_chop'}) |
|
682
|
13238 |
2277 |
unless (length $last_token->{'content'}) |
|
712
|
2729 |
1473 |
if $token->significant |
|
728
|
94556 |
172047 |
unless $token->significant |
|
730
|
127183 |
44864 |
if @tokens >= $count |
|
769
|
122 |
10827 |
unless $p0 |
|
773
|
8562 |
2265 |
if defined $OBVIOUS_CLASS{$c0} |
|
774
|
573 |
1692 |
if defined $OBVIOUS_CONTENT{$p0} |
|
777
|
204 |
1488 |
if $p0->isa("PPI::Token::Operator") |
|
780
|
0 |
1488 |
if $p0->content eq "" |
|
790
|
199 |
925 |
unless @{$self->{'tokens'};} |
|
793
|
1 |
924 |
unless $prev |
|
795
|
160 |
764 |
if $prev->isa("PPI::Token::Word") |
|
814
|
8858 |
24440 |
if (not $prev) { } |
|
822
|
129 |
24311 |
if $content eq "->" |
|
828
|
229 |
24082 |
if $content eq "{" and $t->{'line'} =~ /\G\s*\}/cg |
|
837
|
5631 |
18451 |
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 |
26519 |
if $t->{'line'} =~ /\G\s*=>/cg |
|
857
|
37 |
0 |
$arg ? : |