line |
true |
false |
branch |
120
|
5 |
49 |
if ($config{'file'}) { } |
|
38 |
11 |
elsif ($config{'string'}) { } |
173
|
2 |
10 |
if (ref $file eq 'GLOB') { } |
|
1 |
9 |
elsif (eval {
do {
$file->isa('IO::File')
}
}) { } |
|
4 |
5 |
elsif (ref $file eq 'IO::Scalar') { } |
|
4 |
1 |
elsif (not ref $file) { } |
175
|
1 |
1 |
unless $$self{'_FILEHANDLE'} |
194
|
1 |
3 |
unless $$self{'_FILEHANDLE'} |
218
|
20 |
0 |
if defined $line |
230
|
12 |
0 |
if ($temp_buffer =~ /(\cM\cJ|\cM|\cJ)/) { } |
233
|
4 |
8 |
if $$self{'_IRS'} eq "\r" |
234
|
1 |
11 |
if $$self{'_IRS'} eq "\r\n" |
235
|
7 |
5 |
if $$self{'_IRS'} eq "\n" |
309
|
2 |
5923 |
if ($$self{'_BINARY_DATA'}) |
317
|
3 |
5920 |
if ($$self{'_PUT_TOKEN_CACHE_FLAG'}) |
328
|
2919 |
3001 |
$$self{'_WHITESPACE'} ? : |
337
|
234 |
5721 |
if ($start_character =~ /$non_text_re/) { } |
|
5200 |
521 |
elsif ($start_character eq '\\') { } |
|
224 |
297 |
elsif ($start_character eq '{') { } |
|
225 |
72 |
elsif ($start_character eq '}') { } |
|
38 |
34 |
elsif (not $start_character) { } |
349
|
167 |
74 |
if defined $1 |
357
|
7 |
234 |
if (not $$self{'_BUFFER'} and $$self{'_FILEHANDLE'}) |
359
|
7 |
0 |
if $$self{'_BUFFER'} |
364
|
124 |
110 |
unless ($$self{'_WHITESPACE'}) |
379
|
2 |
5196 |
if ($$self{'_TEMP_ESCAPE_FLAG'}) { } |
396
|
37 |
1 |
unless $$self{'_FILEHANDLE'} |
400
|
0 |
1 |
if $$self{'_FILEHANDLE'}->eof |
402
|
0 |
1 |
unless $$self{'_BUFFER'} |
421
|
34 |
5788 |
if $$token[0] eq 'eof' |
458
|
1 |
1 |
if ($bool) { } |
487
|
1 |
3 |
if (@_) |
536
|
2581 |
2619 |
$$self{'_WHITESPACE'} ? : |
542
|
59 |
5141 |
if ($$self{'_BUFFER'} =~ s/^\*//) { } |
|
5118 |
23 |
elsif ($$self{'_BUFFER'} =~ s/$whitespace_re//) { } |
|
10 |
13 |
elsif ($$self{'_BUFFER'} =~ s/^'([0-9a-f]{2})//i) { } |
|
1 |
12 |
elsif ($$self{'_BUFFER'} =~ s/^([-_~:|{}'\\])//) { } |
|
3 |
9 |
elsif ($$self{'_BUFFER'} =~ s/^[\r\n]//) { } |
|
0 |
9 |
elsif ($$self{'_BUFFER'} =~ s/^\t//) { } |
|
0 |
9 |
elsif ($$self{'_BUFFER'} =~ s/^\;//) { } |
|
4 |
5 |
elsif ($$self{'_BUFFER'} =~ s/^u(\d+)//) { } |
|
2 |
6 |
elsif ($$self{'_SLOPPY'} and $$self{'_BUFFER'} =~ s/^([a-z]{1,32})(-?\d+)//i) { } |
549
|
2812 |
2306 |
if defined $2 |
552
|
2549 |
2569 |
if ($$self{'_WHITESPACE'}) |
553
|
2549 |
0 |
defined $3 ? : |
556
|
5114 |
4 |
unless $1 eq 'bin' |
565
|
1 |
9 |
if $$self{'_NOTE_ESCAPES'} |
570
|
1 |
0 |
if $$self{'_NOTE_ESCAPES'} |
597
|
2 |
0 |
if defined $2 |
627
|
2 |
0 |
if (not $$self{'_FILEHANDLE'} or $$self{'_FILEHANDLE'}->eof) |