Branch Coverage

blib/lib/Iterator/Files.pm
Criterion Covered Total %
branch 43 54 79.6


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