Condition Coverage

blib/lib/Config/IniFiles.pm
Criterion Covered Total %
condition 64 117 54.7


and 3 conditions

line !l l&&!r l&&r condition
60 76 0 9 ref $parms{'-import'} and $parms{'-import'}->isa('Config::IniFiles')
213 0 0 2 $quote eq '"' || $quote eq q['] and substr(${$ref;}, -1, 1) eq $quote
231 0 0 107 defined $sect and defined $parm
505 17 0 98 defined $fn && length $fn
627 118 0 2 $self->{'negativedeltas'} and my($to_delete) = $line =~ /\A$self->{'comment_char'} (.*) is deleted\z/
666 688 2 1 not defined $self->_curr_sect and defined $self->{'fallback'}
680 572 7 110 exists $self->{'v'}{$self->_curr_sect}{$self->_curr_parm} and exists $self->{'myparms'}{$self->_curr_sect}
579 18 92 exists $self->{'v'}{$self->_curr_sect}{$self->_curr_parm} and exists $self->{'myparms'}{$self->_curr_sect} and $self->_is_parm_in_sect($self->_curr_loc)
763 556 0 4 $end_commenthandle and my($value_to_assign, $end_comment_to_assign) = $self->_curr_val =~ /(.*?)\s*[$allCmt]\s*(.*)$/
963 3 1 78 ref $fh ne 'IO::Scalar' and -e $fh
1144 0 0 2 defined $old_sect && defined $new_sect && $self->SectionExists($old_sect)
1181 4 0 28 defined $aref && ref $aref eq 'ARRAY'
1294 0 0 5 defined $mode and $mode =~ /[0-7]{3}/
1620 129 1 1 $self->{'fallback_used'} and $sect eq $self->{'fallback'}
1680 0 265 70 defined $sect and @comment
1758 0 0 690 defined $sect and defined $parm
0 659 31 defined $sect and defined $parm and @comment
1796 0 0 4 defined $sect and defined $parm
1803 0 0 4 exists $self->{'pCMT'}{$sect} and exists $self->{'pCMT'}{$sect}{$parm}
1819 0 0 1 defined $sect and defined $parm
1827 0 0 1 exists $self->{'pCMT'}{$sect} and exists $self->{'pCMT'}{$sect}{$parm}
1842 0 0 0 defined $sect and defined $parm
1857 0 0 129 defined $sect and defined $parm
0 0 129 defined $sect and defined $parm and defined $EOT
1876 0 0 0 defined $sect and defined $parm
1894 0 0 690 defined $sect and defined $parm
0 129 561 defined $sect and defined $parm and defined $cmt
1915 0 0 5 defined $sect and defined $parm

or 2 conditions

line l !l condition
1033 0 354 $self->{'parms'}{$sect} ||= []
1067 1891 0 $self->{'mysects'} ||= []
1085 1102 356 $self->{'myparms'}{$sect} ||= []
1475 62 3 $self->{'EOT'}{$sect}{$parm} || 'EOT'
1644 0 7 $self->{'line_ends'} || $\ || "\n"
1981 27 6 $self->{'_section_cache'} ||= {}

or 3 conditions

line l !l&&r !l&&!r condition
122 0 0 2 not defined $v or length $v != 1
141 0 0 2 not defined $v or $v =~ /[\[\]=\w]/
213 1 1 0 $quote eq '"' || $quote eq q[']
983 75 4 1 keys %{$$self{'v'};} or $self->{'allowempty'}
1144 0 0 2 not defined $old_sect && defined $new_sect && $self->SectionExists($old_sect) or $self->SectionExists($new_sect)
1506 136 0 66 @$val == 1 or $self->{'nomultiline'}
2204 0 11 0 ref $proto || $proto