Branch Coverage

lib/Whim/Core.pm
Criterion Covered Total %
branch 43 58 74.1


line true false branch
79 0 0 if ($extant) { }
118 0 32 if ($args->{'before'})
122 0 32 if ($args->{'after'})
126 21 11 if ($args->{'source'})
132 0 32 if ($args->{'not-source'})
138 25 7 if ($args->{'target'})
142 0 32 if ($args->{'type'})
148 3 29 if ($args->{'process'}) { }
156 32 0 if (@wheres)
187 39 14 $row->{'original_source'} ? :
39 14 $row->{'time_verified'} ? :
195 84 234 unless defined $args{$_}
198 39 14 if ($row->{'author_name'})
202 78 0 if ($$row{"author_$_"})
243 20 1 if ($wm->author and $wm->author->photo)
250 21 0 $wm->author ? :
21 0 $wm->author ? :
21 0 $wm->author ? :
20 1 $wm->is_verified ? :
20 1 $wm->source_html ? :
20 1 $wm->source_html ? :
266 20 1 if ($wm->is_verified) { }
287 7 14 if ($existing_wm) { }
315 3 1 if ($dir eq $TRANSIENT_DB) { }
320 0 1 if $db_file->exists
323 0 4 unless my $dbh = "DBI"->connect("dbi:SQLite:$db_file", "", "", {"sqlite_unicode", 1})
327 4 0 if $db_needs_initialization
341 20 0 if ($response->is_success) { }
344 2 18 unless (-e $photo_file)