Branch Coverage

blib/lib/Toader/Entry.pm
Criterion Covered Total %
branch 0 224 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)
734 0 0 unless (defined $entryName)
740 0 0 unless ($returned)
742 0 0 if (defined $entryName) { }
770 0 0 unless ($self->errorblank)
794 0 0 unless ($self->errorblank)
798 0 0 unless (defined $from)
824 0 0 unless ($self->errorblank)
831 0 0 unless (defined $publish)
835 0 0 if ($publish ne '0' and $publish ne '1')
865 0 0 unless ($self->errorblank)
869 0 0 unless (defined $publish)
873 0 0 if ($publish ne '0' and $publish ne '1')
903 0 0 unless ($self->errorblank)
909 0 0 unless (defined $summary)
933 0 0 unless ($self->errorblank)
937 0 0 unless (defined $summary)
963 0 0 unless ($self->errorblank)
987 0 0 unless ($self->errorblank)
991 0 0 unless (defined $title)
1017 0 0 unless ($self->errorblank)
1043 0 0 unless ($self->errorblank)
1047 0 0 unless (defined $renderer)
1073 0 0 unless ($self->errorblank)
1078 0 0 unless (defined $file)
1086 0 0 unless (-f $file)
1097 0 0 unless (defined $mimetype)
1110 0 0 unless (open $fh, '<', $file)
1153 0 0 unless ($self->errorblank)
1157 0 0 unless (defined $dir)
1165 0 0 unless (-d $dir)
1173 0 0 if ($self->error)
1179 0 0 unless (defined $subparts[0])
1186 0 0 if (defined $file)
1190 0 0 unless (open $fh, '>', $file)
1222 0 0 unless ($self->errorblank)
1243 0 0 unless ($self->errorblank)
1248 0 0 if ($self->error)
1256 0 0 if (defined $subparts[$int]->filename)
1284 0 0 unless ($self->errorblank)
1289 0 0 unless (defined $file)
1301 0 0 if (not defined $partFilename or $file ne $partFilename)
1330 0 0 unless ($self->errorblank)
1335 0 0 unless (defined $self->{'mime'}->header('tags'))
1359 0 0 unless ($self->errorblank)
1365 0 0 unless (defined $tags)
1388 0 0 if (defined $_[1])
1392 0 0 unless ($self->errorblank)
1419 0 0 unless ($self->errorblank)
1423 0 0 unless (defined $tagsString)
1449 0 0 unless ($self->errorblank)
1454 0 0 unless (defined $self->{'dir'})
1462 0 0 unless (-d $self->{'dir'} . '/.toader/')
1470 0 0 unless (defined $self->{'entryName'})
1475 0 0 unless (-d $self->{'dir'} . '/.toader/entries/')
1476 0 0 unless (make_path($self->{'dir'} . '/.toader/entries/'))
1492 0 0 unless (open $fh, '>', $file)
1502 0 0 unless ($self->{'VCSusable'})
1508 0 0 if ($self->{'vcs'}->error)
1515 0 0 if ($underVCS)
1521 0 0 if ($self->{'vcs'}->error)
1546 0 0 unless ($self->errorblank)
1550 0 0 unless (defined $self->{'entryName'})
1571 0 0 unless ($self->errorblank)
1626 0 0 unless ($self->errorblank)
1630 0 0 unless (defined $self->{'entryName'})