| 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 |