| line |
true |
false |
branch |
|
178
|
0 |
46 |
unless $class->can($toplevel) |
|
189
|
1 |
45 |
if ($args{'accept_0o_oct'}) |
|
193
|
1 |
45 |
if (defined $self->{'patterns'}{'comment'}) { } |
|
227
|
5 |
138 |
unless $self->at_eos |
|
260
|
0 |
3 |
unless defined $file |
|
265
|
0 |
2 |
if $opts{'binmode'} |
|
266
|
2 |
1 |
ref $file ? : |
|
305
|
0 |
1 |
unless $self->at_eos |
|
369
|
6 |
8 |
unless defined $pos |
|
374
|
1 |
13 |
if $sol > 0 and substr($str, $sol, 1) =~ /^[\r\n]$/u |
|
423
|
251 |
2 |
if &blessed($_[0]) |
|
443
|
162 |
434 |
if (pos $self->{'str'} >= length $self->{'str'}) { } |
|
|
114 |
320 |
elsif (defined $self->{'endofscope'}) { } |
|
596
|
73 |
0 |
unless ref $stop |
|
598
|
65 |
8 |
if defined $start |
|
600
|
16 |
18 |
if $commit_if_started |
|
669
|
16 |
56 |
if defined $sep |
|
692
|
32 |
71 |
if (defined $sep) |
|
694
|
15 |
17 |
unless $self->{'str'} =~ /\G$sep/cgu |
|
847
|
69 |
0 |
if ($self->{'committer'}) { } |
|
871
|
1064 |
222 |
if pos $self->{'str'} < length $self->{'str'} |
|
873
|
218 |
4 |
unless $self->{'reader'} |
|
876
|
3 |
1 |
if (defined $more) |
|
927
|
11 |
360 |
unless ref $expect |
|
930
|
161 |
210 |
unless $self->{'str'} =~ /\G$expect/cgu |
|
932
|
188 |
22 |
unless wantarray |
|
933
|
36 |
1 |
defined $-[$_] ? : |
|
941
|
271 |
84 |
unless ref $expect |
|
943
|
31 |
324 |
if (wantarray) { } |
|
944
|
11 |
20 |
unless my(@ret) = $self->maybe_expect($expect) |
|
949
|
139 |
185 |
unless defined(my $ret = $self->maybe_expect($expect)) |
|
994
|
30 |
10 |
unless ref $expect |
|
996
|
4 |
36 |
defined $self->{'endofscope'} ? : |
|
1004
|
37 |
3 |
if ($self->{'str'} =~ /\G(?s:.*?)($endre)/u) { } |
|
1048
|
0 |
230 |
if $self->at_eos |
|
1051
|
61 |
169 |
unless $self->{'str'} =~ /\G$re/cgu |
|
1056
|
123 |
46 |
$convert ? : |
|
1065
|
226 |
0 |
$args{'pattern'} ? : |
|
1089
|
1 |
103 |
$int =~ s/^-//u ? : |
|
1093
|
5 |
99 |
if $int =~ /^0/u |
|
1179
|
1 |
52 |
if $self->at_eos |
|
1184
|
20 |
32 |
unless $self->{'str'} =~ /\G($self->{'patterns'}{'string_delim'})/cgu |
|
1199
|
0 |
32 |
unless $self->{'str'} =~ /
\G(
(?:
\\[0-7]{1,3} # octal escape
|\\x[0-9A-F]{2} # 2-digit hex escape
|\\x\{[0-9A-F]+\} # {}-delimited hex escape
|\\. # symbolic escape
|[^\\$delim]+ # plain chunk
)*?
)$delim/cgiux |
|
1206
|
7 |
0 |
exists $escapes{$4} ? : |
|
|
1 |
7 |
defined $3 ? : |
|
|
1 |
8 |
defined $2 ? : |
|
|
2 |
9 |
defined $1 ? : |
|
1247
|
0 |
2 |
unless defined(my $kw = $self->token_ident) |
|
1251
|
1 |
1 |
unless grep {$_ eq $kw;} @acceptable |
|
1283
|
1 |
7 |
defined $filename && !ref($filename) ? : |