| line |
true |
false |
branch |
|
95
|
0 |
3 |
if @_ |
|
121
|
0 |
3 |
if ($file_name eq '-') { } |
|
122
|
0 |
0 |
if ($mode =~ /r|
|
|
123
|
0 |
0 |
unless $self->fdopen('STDIN', $mode) |
|
125
|
0 |
0 |
unless $self->fdopen('STDOUT', $mode) |
|
128
|
1 |
2 |
unless $self->SUPER::open($file_name, $mode) |
|
151
|
0 |
0 |
unless defined $data |
|
179
|
3 |
0 |
if @_ |
|
192
|
0 |
1 |
unless $self->opened |
|
193
|
0 |
1 |
unless $self->SUPER::close |
|
202
|
0 |
0 |
unless $self->opened |
|
204
|
0 |
0 |
unless $self->can("SUPER::$function")->($self, @_) |
|
235
|
0 |
0 |
unless @_ == 1 or @_ == 2 |
|
237
|
0 |
0 |
unless ref $self |
|
240
|
0 |
0 |
unless @_ == 1 |
|
261
|
0 |
1 |
unless $self->opened |
|
264
|
0 |
1 |
exists $$data{'format_line_break_characters'} ? : |
|
265
|
0 |
1 |
exists $$data{'format_formfeed'} ? : |
|
266
|
0 |
1 |
exists $$data{'output_field_separator'} ? : |
|
267
|
0 |
1 |
exists $$data{'output_record_separator'} ? : |
|
269
|
0 |
1 |
unless print $self @_ |
|
295
|
0 |
1 |
unless ($self->isa('IO::Simple')) |
|
298
|
0 |
1 |
unless $self->opened |
|
299
|
0 |
1 |
if (wantarray) { } |
|
310
|
0 |
1 |
unless $self->opened |
|
312
|
1 |
0 |
if (@_) { } |
|
|
0 |
0 |
elsif (exists $$data{'input_record_separator'}) { } |
|
318
|
0 |
1 |
if (wantarray) { } |
|
320
|
0 |
0 |
if $$data{'autochomp'} |
|
324
|
1 |
0 |
if $$data{'autochomp'} |