| blib/lib/VCS/Lite/Store.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 22 | 59.0 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 67 | 181 | unless -e $store_file |
| 29 | 0 | 181 | unless my $obj = $self->load($store_file) |
| 39 | 41 | 80 | unless $self->retrieve($path) |
| 49 | 15 | 26 | unless (-d $store_dir) |
| 50 | 0 | 15 | unless mkdir $store_dir |
| 53 | 0 | 41 | $self->can('user') ? : |
| 0 | 41 | unless my $creator = $self->can('user') ? $self->user : $proto->user | |
| 66 | 161 | 259 | if ($fil and -d $path) |
| 71 | 0 | 420 | if (ref $self) { } |
| 73 | 0 | 0 | if $hvol ne $vol |
| 78 | 0 | 0 | if $dd ne $_ |