line | % | coverage | branch |
139 | 100 | T | F | if (exists $args{'filename'}) |
142 | 50 | T | F | if (exists $args{'compression'}) |
145 | 50 | T | F | if (exists $args{'compression_level'}) |
162 | 100 | T | F | if (exists *$self->{'mode'}) { } |
163 | 50 | T | F | if *$self->{'mode'} eq $mode |
172 | 50 | T | F | if ($mode eq 'w') { } |
| 50 | T | F | elsif ($mode eq 'r') { } |
205 | 100 | T | F | if wantarray |
212 | 50 | T | F | if (scalar @args == 2) { } |
215 | 100 | T | F | if ($mode eq '>') { } |
| 50 | T | F | elsif ($mode eq '<') { } |
233 | 50 | T | F | if (defined *$self->{'file'}) { } |
234 | 100 | T | F | if *$self->{'file'}->opened |
245 | 0 | T | F | if defined *$self->{'file'} |
254 | 50 | T | F | if defined *$self->{'file'} |
261 | 0 | T | F | if defined *$self->{'file'} |
268 | 0 | T | F | if defined *$self->{'file'} |
275 | 50 | T | F | if defined *$self->{'file'} |
294 | 0 | T | F | if ($method ne "none" and $method ne "auto") |
325 | 50 | T | F | if (defined $add_comp_ext) |
329 | 50 | T | F | if (*$self->{'add_comp_ext'} and $filename =~ /\.$comp_ext_regex$/) |
348 | 50 | T | F | if (*$self->{'add_comp_ext'}) { } |
349 | 0 | T | F | if ($comp eq 'auto') { } |
| 0 | T | F | elsif ($comp eq 'none') { } |
375 | 50 | T | F | if ($comp eq 'none') { } |
| 50 | T | F | elsif ($comp eq 'auto') { } |
379 | 100 | T | F | if $comp |
393 | 50 | T | F | if exists *$self->{'file'} |
403 | 50 | T | F | if exists *$self->{'mode'} |
405 | 100 | T | F | if ($self->use_compression) { } |
409 | 50 | T | F | unless open $filehandle, ">", $self->get_filename |
421 | 50 | T | F | if exists *$self->{'mode'} |
423 | 100 | T | F | if ($self->use_compression) { } |
428 | 50 | T | F | unless open $filehandle, "<", $self->get_filename |
439 | 100 | T | F | if (*$self->{'allow_sigpipe'}) |
441 | 0 | T | F | unless ($? == 0 or POSIX::WIFSIGNALED($?) and POSIX::WTERMSIG($?) == 13) |