Branch Coverage

blib/lib/Toader/Entry.pm
Criterion Covered Total %
branch 0 222 0.0


line true false branch
91 0 0 if (defined $_[1])
134 0 0 unless (defined $args{'renderer'})
138 0 0 unless (defined $args{'title'})
146 0 0 unless (defined $args{'from'})
154 0 0 unless (defined $args{'body'})
158 0 0 unless (defined $args{'publish'})
163 0 0 if ($args{'publish'} ne '0' and $args{'publish'} ne '1')
174 0 0 unless (defined $args{'summary'})
181 0 0 if (defined $args{'files'})
182 0 0 if (ref($args{'files'} ne 'ARRAY'))
192 0 0 unless (-f $args{'files'}[$int])
204 0 0 unless (defined $mimetype)
214 0 0 unless (open $fh, '<', $args{'files'}[$int])
236 0 0 unless (defined $part)
252 0 0 unless (defined $args{'tags'})
273 0 0 if (defined $parts[0])
277 0 0 unless (defined $mime)
288 0 0 unless (defined $args{'toader'})
295 0 0 if (ref $args{'toader'} ne 'Toader')
306 0 0 if ($$self{'toader'}->error)
317 0 0 if ($$self{'vcs'}->error)
389 0 0 unless (defined $string)
399 0 0 unless (defined $mime)
408 0 0 unless (defined $mime->header('title'))
417 0 0 unless (defined $mime->header('from'))
426 0 0 unless (defined $mime->header('summary'))
431 0 0 unless (defined $mime->header('tags'))
439 0 0 unless (defined $mime->header('renderer'))
444 0 0 unless (defined $mime->header('publish'))
449 0 0 if ($mime->header('publish') ne '0' and $mime->header('publish') ne '1')
464 0 0 unless (defined $toader)
471 0 0 if (ref $toader ne 'Toader')
482 0 0 if ($toader->error)
493 0 0 if ($$self{'vcs'}->error)
521 0 0 unless ($self->errorblank)
542 0 0 unless ($self->errorblank)
550 0 0 unless (defined $parts[$int]->filename)
577 0 0 unless ($self->errorblank)
581 0 0 unless (defined $body)
591 0 0 if (defined $parts[1])
594 0 0 unless (defined $parts[$int]->filename)
629 0 0 unless ($self->errorblank)
653 0 0 unless ($self->errorblank)
658 0 0 unless (defined $dir)
672 0 0 unless ($returned)
702 0 0 unless ($self->errorblank)
728 0 0 unless ($self->errorblank)
735 0 0 unless ($returned)
743 0 0 unless (defined $entryName)
766 0 0 unless ($self->errorblank)
790 0 0 unless ($self->errorblank)
794 0 0 unless (defined $from)
820 0 0 unless ($self->errorblank)
827 0 0 unless (defined $publish)
831 0 0 if ($publish ne '0' and $publish ne '1')
861 0 0 unless ($self->errorblank)
865 0 0 unless (defined $publish)
869 0 0 if ($publish ne '0' and $publish ne '1')
899 0 0 unless ($self->errorblank)
905 0 0 unless (defined $summary)
929 0 0 unless ($self->errorblank)
933 0 0 unless (defined $summary)
959 0 0 unless ($self->errorblank)
983 0 0 unless ($self->errorblank)
987 0 0 unless (defined $title)
1013 0 0 unless ($self->errorblank)
1039 0 0 unless ($self->errorblank)
1043 0 0 unless (defined $renderer)
1069 0 0 unless ($self->errorblank)
1074 0 0 unless (defined $file)
1082 0 0 unless (-f $file)
1093 0 0 unless (defined $mimetype)
1106 0 0 unless (open $fh, '<', $file)
1149 0 0 unless ($self->errorblank)
1153 0 0 unless (defined $dir)
1161 0 0 unless (-d $dir)
1169 0 0 if ($self->error)
1175 0 0 unless (defined $subparts[0])
1182 0 0 if (defined $file)
1186 0 0 unless (open $fh, '>', $file)
1218 0 0 unless ($self->errorblank)
1239 0 0 unless ($self->errorblank)
1244 0 0 if ($self->error)
1252 0 0 if (defined $subparts[$int]->filename)
1280 0 0 unless ($self->errorblank)
1285 0 0 unless (defined $file)
1297 0 0 if (not defined $partFilename or $file ne $partFilename)
1326 0 0 unless ($self->errorblank)
1331 0 0 unless (defined $$self{'mime'}->header('tags'))
1355 0 0 unless ($self->errorblank)
1361 0 0 unless (defined $tags)
1384 0 0 if (defined $_[1])
1388 0 0 unless ($self->errorblank)
1415 0 0 unless ($self->errorblank)
1419 0 0 unless (defined $tagsString)
1445 0 0 unless ($self->errorblank)
1450 0 0 unless (defined $$self{'dir'})
1458 0 0 unless (-d $$self{'dir'} . '/.toader/')
1466 0 0 unless (defined $$self{'entryName'})
1471 0 0 unless (-d $$self{'dir'} . '/.toader/entries/')
1472 0 0 unless (make_path($$self{'dir'} . '/.toader/entries/'))
1488 0 0 unless (open $fh, '>', $file)
1498 0 0 unless ($$self{'VCSusable'})
1504 0 0 if ($$self{'vcs'}->error)
1511 0 0 if ($underVCS)
1517 0 0 if ($$self{'vcs'}->error)
1542 0 0 unless ($self->errorblank)
1546 0 0 unless (defined $$self{'entryName'})
1567 0 0 unless ($self->errorblank)
1622 0 0 unless ($self->errorblank)
1626 0 0 unless (defined $$self{'entryName'})