Branch Coverage

blib/lib/App/SCM/Digest.pm
Criterion Covered Total %
branch 18 64 28.1


line true false branch
69 3 1 if (my $error = $@)
83 3 0 unless ($pre_existing)
84 2 1 unless (-e "$db_path/$name")
90 1 0 unless ($impl->is_usable)
93 0 0 if ($pre_existing)
100 0 0 if (-e $branch_db_path)
106 0 0 unless (-e $branch_db_parent)
123 1 0 unless ($impl->is_usable)
132 0 0 unless (-e $branch_db_path)
135 0 0 unless my $branch_db_file = 'File::ReadBackwards'->new($branch_db_path)
145 0 0 unless ($commit)
176 5 2 if (my $error = $@)
182 0 5 if ($do_backup)
184 0 0 unless ($res)
192 5 0 if (my $sub_error = $@) { }
193 0 5 if ($do_backup)
196 0 0 if ($rm_error and @{$rm_error;}) { }
204 0 0 unless ($res)
212 3 2 if ($config->{'ignore_errors'}) { }
241 2 0 if (not defined $from || defined $to) { }
0 0 elsif (not defined $from) { }
0 0 elsif (not defined $to) { }
260 0 2 unless ($from_dt)
263 0 2 unless ($to_dt)
281 0 0 if (not $tz or $tz eq 'UTC')
298 0 0 unless (-e $branch_db_path)
306 0 0 if ($time ge $from and $time le $to)
340 0 0 unless ($impl->is_usable)
350 0 0 unless (@commits)
359 0 0 if ($impl->has($id)) { }
379 1 0 unless (@commit_data)
385 0 0 unless $config->{'headers'}