| blib/lib/Git/Database/Role/PurePerlBackend.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 22 | 72.7 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 0 | 6 | unless defined $abbrev |
| 27 | 0 | 6 | if $abbrev =~ /^[0-9a-fA-F]{40}$/ |
| 28 | 0 | 6 | if length $abbrev < 4 |
| 32 | 2 | 4 | if @matches > 1 |
| 33 | 4 | 2 | @matches == 1 ? : |
| 41 | 6 | 420 | unless $digest =~ /^[0-9a-f]{40}$/ |
| 48 | 214 | 0 | if (defined $kind and defined $size and defined $content) |
| 60 | 26 | 0 | if (defined $kind and defined $size and defined $content) |
| 74 | 12 | 16 | unless $kind |
| 93 | 32 | 0 | if (-f (my $packed_refs = file($store->gitdir, 'packed-refs'))) |
| 95 | 48 | 48 | if $line =~ /^[#^]/ |