line |
true |
false |
branch |
158
|
3 |
17 |
if (exists $args{'magic'}) |
161
|
0 |
3 |
unless $self->{'_magic'} =~ /^none|all|stdin$/ |
163
|
3 |
17 |
if (exists $args{'edit'}) |
166
|
1 |
2 |
if defined $self->{'_edit'} and $self->{'_edit'} eq '' |
168
|
19 |
0 |
if (exists $args{'files'}) |
171
|
0 |
19 |
unless ref $self->{'_files'} eq 'ARRAY' |
174
|
0 |
19 |
if (exists $args{'record_separator'}) |
177
|
0 |
19 |
if (exists $args{'rs'}) |
180
|
1 |
18 |
if (%args) |
204
|
33 |
51 |
unless ($self->{'_init'}) |
205
|
14 |
17 |
unless $self->_advance |
208
|
68 |
0 |
if ($self->{'_init'}) |
210
|
51 |
17 |
if defined $line |
220
|
63 |
2 |
unless wantarray |
245
|
2 |
37 |
if (defined $self->{'_edit'} and defined $self->{'_rewrite_fh'}) |
247
|
0 |
2 |
unless close $self->{'_rewrite_fh'} |
254
|
18 |
25 |
unless (@{$self->{'_files'};}) |
260
|
3 |
22 |
if ($self->{'_magic'} eq 'all' or $self->{'_magic'} eq 'stdin' and $self->current_file eq '-') { } |
262
|
0 |
3 |
unless open $self->{'_current_fh'}, $self->current_file |
266
|
2 |
20 |
unless open $self->{'_current_fh'}, '<', $self->current_file |
270
|
4 |
19 |
if (eof $self->{'_current_fh'}) |
277
|
2 |
17 |
if (defined $self->{'_edit'}) |
280
|
2 |
0 |
if (not $self->{'_edit'} =~ /\*/) { } |
287
|
0 |
2 |
unless rename $fname, $backup |
289
|
0 |
2 |
unless open $self->{'_rewrite_fh'}, '>', $fname |
311
|
6 |
6 |
unless not $self->is_eof |
329
|
14 |
4 |
unless not defined $fh |