Branch Coverage

blib/lib/StanzaFile.pm
Criterion Covered Total %
branch 0 64 0.0


line true false branch
65 0 0 if scalar(@_) % 2 != 0
71 0 0 if %ARGS
97 0 0 if ref $theStanza ne 'Stanza'
111 0 0 if scalar @_ < 2
115 0 0 if (ref $theStanzaName and $theStanzaName->isa('Stanza')) { }
132 0 0 if scalar @_ < 2
136 0 0 if ($theLine =~ /\s*\[([^\]]+)\]/)
156 0 0 if scalar @_ < 2
172 0 0 if ($theLine =~ /\s*([\w ]+?)\s*=\s*(.*)/)
200 0 0 if scalar @_ < 2
210 0 0 if $theObject->isComment($_)
214 0 0 if ($theStanzaName = $theObject->isBeginning($_)) { }
236 0 0 if ($$theObject{'stanzaFlag'}) { }
251 0 0 if $@
270 0 0 if scalar @_ < 2
274 0 0 if scalar(@_) % 2 ne 0
280 0 0 if (defined $ARGS{'file_string'}) { }
0 0 elsif (defined $ARGS{'file_name'}) { }
0 0 elsif (defined $ARGS{'file_handle'}) { }
288 0 0 unless defined $theFileHandle
296 0 0 if !$ARGS{'file_handle'} - isa('FileHandle')
340 0 0 if (defined $theStanza->item($_)) { }
382 0 0 if scalar @_ < 2
386 0 0 if scalar(@_) % 2 ne 0
392 0 0 if (defined $ARGS{'file_string'}) { }
0 0 elsif (defined $ARGS{'file_name'}) { }
0 0 elsif (defined $ARGS{'file_handle'}) { }
400 0 0 unless defined $theFileHandle
408 0 0 if !$ARGS{'file_handle'} - isa('FileHandle')
428 0 0 if ref $theStanza ne 'Stanza'
430 0 0 unless ($theObject->exists($theStanza))
462 0 0 if (ref $theName and $theName->isa('Stanza')) { }