Branch Coverage

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


line true false branch
77 0 0 if ($extant) { }
116 0 32 if ($args->{'before'})
120 0 32 if ($args->{'after'})
124 21 11 if ($args->{'source'})
130 0 32 if ($args->{'not-source'})
136 25 7 if ($args->{'target'})
140 0 32 if ($args->{'type'})
146 3 29 if ($args->{'process'}) { }
154 32 0 if (@wheres)
185 39 14 $row->{'original_source'} ? :
39 14 $row->{'time_verified'} ? :
193 84 234 unless defined $args{$_}
196 39 14 if ($row->{'author_name'})
200 78 0 if ($$row{"author_$_"})
241 20 1 if ($wm->author and $wm->author->photo)
248 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 ? :
264 20 1 if ($wm->is_verified) { }
285 7 14 if ($existing_wm) { }
313 3 1 if ($dir eq $TRANSIENT_DB) { }
318 0 1 if $db_file->exists
321 0 4 unless my $dbh = 'DBI'->connect("dbi:SQLite:$db_file", '', '', {'sqlite_unicode', 1})
325 4 0 if $db_needs_initialization
339 20 0 if ($response->is_success) { }
342 2 18 unless (-e $photo_file)