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')) { } |