Branch Coverage

blib/lib/WWW/Noss/OPML.pm
Criterion Covered Total %
branch 17 34 50.0


line true false branch
13 0 18 unless defined $type
17 6 12 if ($type eq 'folder') { }
12 0 elsif ($type eq 'rss') { }
73 0 3 unless (defined $dom)
79 3 0 defined $title ? :
122 1 2 if (defined $param{'folders'} and not $param{'folders'}) { }
126 8 0 if (@{$f->{'groups'};}) { }
150 0 8 if defined $f->{'html_url'}
164 0 4 if defined $f->{'html_url'}
176 0 1 unless open my $fh, ">", $file
209 0 4 unless (defined $new)
229 0 4 unless (ref $new eq "ARRAY")
234 0 3 unless (defined $new->[$i]{'xml_url'})
237 0 3 unless (defined $new->[$i]{'title'})
240 0 3 if (defined $new->[$i]{'groups'} and ref $new->[$i]{'groups'} ne "ARRAY")
257 0 0 unless defined $f->{'groups'}
260 0 0 if ($f->{'groups'}[$i] eq $old)