| line |
true |
false |
branch |
|
47
|
3 |
1 |
if (@_) |
|
59
|
0 |
22 |
if keys %options |
|
61
|
0 |
22 |
if (not $prompt_fh and defined $prompt || defined $char_mask) |
|
63
|
0 |
0 |
if (defined $fd and $fd >= 0) { } |
|
|
0 |
0 |
elsif ($handle == \*STDIN) { } |
|
79
|
0 |
22 |
if (defined $prompt) |
|
84
|
0 |
22 |
if ($input_by_chars) { } |
|
86
|
0 |
0 |
unless $self->append_read($handle, 1) |
|
90
|
0 |
0 |
if ($self->index(qr/[\0-\x1F\x7F]/, $end_pos) == $end_pos) { } |
|
|
0 |
0 |
elsif ($char_class and $self->index($char_class, $end_pos) == -1) { } |
|
|
0 |
0 |
elsif ($char_max and $self->length - $start_len > $char_max) { } |
|
94
|
0 |
0 |
if ($self->index(qr/[\r\n]/, $end_pos) == $end_pos) { } |
|
|
0 |
0 |
elsif ($self->index(qr/[\b\x7F]/, $end_pos) == $end_pos) { } |
|
101
|
0 |
0 |
if ($self->length > $start_len) |
|
104
|
0 |
0 |
if (CORE::length $char_mask) |
|
128
|
0 |
0 |
if (CORE::length $char_mask) |
|
133
|
0 |
0 |
if $char_count and $self->length - $start_len >= $char_count |
|
140
|
0 |
22 |
if ($char_max and $self->length - $start_len > $char_max) |
|
151
|
0 |
2 |
unless pipe my $r, my $w |
|
160
|
0 |
1 |
unless open my $fh, "<", $path |
|
164
|
0 |
2 |
unless defined $got |
|
165
|
1 |
1 |
if $got == 0 |
|
168
|
0 |
1 |
if $blocksize > 16384 |
|
170
|
0 |
1 |
unless close $fh |
|
179
|
1 |
2 |
if (not $overwrite) { } |
|
|
1 |
1 |
elsif ($overwrite eq 'rename') { } |
|
180
|
1 |
0 |
if -e $path |
|
182
|
0 |
0 |
unless open $fh, ">>", $path |
|
183
|
0 |
0 |
if -s $fh > 0 |
|
192
|
0 |
1 |
unless open $fh, ">", $path |
|
197
|
0 |
2 |
unless defined $w |
|
200
|
0 |
2 |
unless close $fh |
|
201
|
1 |
1 |
if ($overwrite eq "rename") |
|
202
|
0 |
1 |
unless rename $cur_path, $path |