| line |
true |
false |
branch |
|
18
|
1 |
40 |
if @_ % 2 |
|
21
|
1 |
43 |
unless $TIEHANDLE_KNOWN_ARGS{$_} |
|
23
|
1 |
38 |
if defined $args{'filename'} and ref $args{'filename'} ne "SCALAR" |
|
25
|
1 |
37 |
if defined $args{'files'} and ref $args{'files'} ne "ARRAY" |
|
28
|
2 |
33 |
$args{'debug'} ? : |
|
|
2 |
35 |
ref $args{'debug'} ? : |
|
36
|
543 |
7 |
unless $self->{'__debug'} |
|
37
|
1 |
6 |
unless @_ |
|
47
|
1 |
89 |
unless @_ == 1 |
|
50
|
81 |
8 |
if ($keep_lineno) { } |
|
61
|
1 |
2 |
defined $self->{'__a_argv'} ? : |
|
69
|
4 |
78 |
defined $self->{'__s_argv'} ? : |
|
70
|
4 |
78 |
defined $self->{'__a_argv'} ? : |
|
76
|
1 |
115 |
if @_ |
|
77
|
2 |
36 |
defined $self->{'__a_argv'} ? : |
|
|
2 |
36 |
unless (defined $self->{'__lineno'} or @{defined $self->{'__a_argv'} ? $self->{'__a_argv'} : \@ARGV;}) |
|
84
|
81 |
38 |
if defined $self->{'__lineno'} |
|
85
|
6 |
113 |
defined $self->{'__a_argv'} ? : |
|
|
37 |
82 |
unless (@{defined $self->{'__a_argv'} ? $self->{'__a_argv'} : \@ARGV;}) |
|
87
|
35 |
2 |
unless $peek |
|
94
|
77 |
4 |
if ($self->OPEN($fn)) { } |
|
95
|
37 |
40 |
unless defined $self->{'__lineno'} |
|
111
|
4 |
142 |
wantarray ? : |
|
116
|
35 |
71 |
unless $self->_advance |
|
119
|
1 |
123 |
unless defined $line |
|
122
|
109 |
14 |
unless wantarray |
|
125
|
4 |
141 |
wantarray ? : |
|
138
|
14 |
232 |
if (@_ and $_[0] == 2) |
|
141
|
2 |
6 |
unless ($self->_advance("peek")) |