| line |
true |
false |
branch |
|
120
|
5 |
46 |
if ($config{'file'}) { } |
|
|
38 |
8 |
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) { } |
|
177
|
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 |
5900 |
if ($self->{'_BINARY_DATA'}) |
|
317
|
3 |
5897 |
if ($self->{'_PUT_TOKEN_CACHE_FLAG'}) |
|
329
|
2919 |
2978 |
$self->{'_WHITESPACE'} ? : |
|
337
|
224 |
5708 |
if ($start_character =~ /$non_text_re/) { } |
|
|
5192 |
516 |
elsif ($start_character eq '\\') { } |
|
|
224 |
292 |
elsif ($start_character eq '{') { } |
|
|
220 |
72 |
elsif ($start_character eq '}') { } |
|
|
38 |
34 |
elsif (not $start_character) { } |
|
349
|
159 |
72 |
if defined $1 |
|
357
|
7 |
19 |
if (not $self->{'_BUFFER'} and $self->{'_FILEHANDLE'}) |
|
359
|
7 |
0 |
if $self->{'_BUFFER'} |
|
364
|
114 |
110 |
unless ($self->{'_WHITESPACE'}) |
|
379
|
2 |
5188 |
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
|
0 |
0 |
if ($bool) { } |
|
487
|
1 |
3 |
if (@_) |
|
537
|
2581 |
2611 |
$self->{'_WHITESPACE'} ? : |
|
542
|
59 |
5133 |
if ($self->{'_BUFFER'} =~ s/^\*//) { } |
|
|
5117 |
16 |
elsif ($self->{'_BUFFER'} =~ s/$whitespace_re//) { } |
|
|
9 |
7 |
elsif ($self->{'_BUFFER'} =~ s/^'([0-9a-f]{2})//i) { } |
|
|
1 |
6 |
elsif ($self->{'_BUFFER'} =~ s/^([-_~:|{}'\\])//) { } |
|
|
3 |
3 |
elsif ($self->{'_BUFFER'} =~ s/^[\r\n]//) { } |
|
|
0 |
3 |
elsif ($self->{'_BUFFER'} =~ s/^\t//) { } |
|
|
0 |
3 |
elsif ($self->{'_BUFFER'} =~ s/^\;//) { } |
|
|
3 |
0 |
elsif ($self->{'_BUFFER'} =~ s/^u(\d+)//) { } |
|
|
0 |
0 |
elsif ($self->{'_SLOPPY'} and $self->{'_BUFFER'} =~ s/^([a-z]{1,32})(-?\d+)//i) { } |
|
549
|
2811 |
2306 |
if defined $2 |
|
552
|
2549 |
2568 |
if ($self->{'_WHITESPACE'}) |
|
553
|
2549 |
0 |
defined $3 ? : |
|
556
|
5113 |
4 |
unless $1 eq 'bin' |
|
565
|
1 |
8 |
if $self->{'_NOTE_ESCAPES'} |
|
570
|
1 |
0 |
if $self->{'_NOTE_ESCAPES'} |
|
597
|
0 |
0 |
if defined $2 |
|
627
|
2 |
0 |
if (not $self->{'_FILEHANDLE'} or $self->{'_FILEHANDLE'}->eof) |