| blib/lib/DiaColloDB/Upgrade/Base.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 44 | 0.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 188 | 0 | 0 | 0 | ref $up and defined $up->{'hdr'} |
| 0 | 0 | 0 | ref $up and defined $up->{'hdr'} and ($up->{'dbdir'} // '') eq $dbdir |
| line | l | !l | condition |
|---|---|---|---|
| 62 | 0 | 0 | $header->{'version'} // '0.0.0' |
| 129 | 0 | 0 | $up->can('revert_created') // \&DiaColloDB::Upgrade::Base::revert_created |
| 131 | 0 | 0 | $up->can('revert_updated') // \&DiaColloDB::Upgrade::Base::revert_updated |
| 188 | 0 | 0 | $up->{'dbdir'} // '' |
| 210 | 0 | 0 | $header->{'version'} // 'unknown' |
| 228 | 0 | 0 | $xinfo // {} |
| 232 | 0 | 0 | $header->{'upgraded'} //= [] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 31 | 0 | 0 | 0 | ref $that || $that |
| 47 | 0 | 0 | 0 | ref $_[0] || $_[0] |
| 146 | 0 | 0 | 0 | not -e "$dbdir/$_" or unlink "$dbdir/$_" |
| 186 | 0 | 0 | 0 | $dbdir //= $up->{'dbdir'} |
| 205 | 0 | 0 | 0 | (scalar(@_) % 2 == 0 ? undef : shift()) // $up->{'hdr'} |
| 206 | 0 | 0 | 0 | $up->{'hdr'} // ($dbdir ? $up->dbheader($dbdir) : {}) |
| 210 | 0 | 0 | 0 | $up->{'timestamp'} || DiaColloDB::Utils::timestamp(time) |
| 224 | 0 | 0 | 0 | not $up->{'backup'} or DiaColloDB::Utils::copyto_a("$dbdir/header.json", $up->backupdir) |