Branch Coverage

blib/lib/Parse/CSV.pm
Criterion Covered Total %
branch 39 52 75.0


line true false branch
206 7 2 if (exists $self->{'file'})
207 0 7 unless (&Params::Util::_STRING($self->{'file'}))
210 0 7 unless (-f $self->{'file'} and -r _)
215 0 7 unless ($self->{'handle'}->open($self->{'file'}))
221 9 0 if (exists $self->{'handle'}) { }
222 0 9 unless (Params::Util::_HANDLE($self->{'handle'}))
230 7 2 unless (&Params::Util::_HASH0($self->{'csv_attr'}))
234 42 0 unless exists $self->{$_}
241 0 9 unless ($self->{'csv_xs'})
246 3 6 if ($self->{'fields'} and not $self->{'names'})
251 5 0 if (&Params::Util::_STRING($self->{'names'}) and $self->{'names'})
257 0 9 if (exists $self->{'names'} and not &Params::Util::_ARRAY($self->{'names'}))
262 0 9 if (exists $self->{'filter'} and not &Params::Util::_CODELIKE($self->{'filter'}))
325 9 10 if ($self->{'names'}) { }
333 15 4 unless $self->{'filter'}
337 0 4 if ($@)
345 1 3 unless defined $rv
374 5 25 $attrs{'header'} ? :
376 6 24 if (not $row and 0 + $self->{'csv_xs'}->error_diag)
381 1 5 unless (eof $self->{'handle'} and $err =~ /^EOF/)
386 24 6 if defined $row
440 2 0 if ($self->{'savedrow'})
480 2 2 if ($self->{'savedrow'})
506 5 1 if ($names)
507 2 3 if @_
510 0 1 if @_