| lib/Synapse/CLI/Config/Object.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 32 | 56.2 |
| line | true | false | branch |
|---|---|---|---|
| 81 | 0 | 1 | unless (defined $objid) |
| 87 | 0 | 1 | unless ($objid =~ /^[a-z0-9-_]+$/i) |
| 93 | 0 | 1 | unless -d $config_dir |
| 94 | 0 | 1 | unless -d $config_dir |
| 98 | 1 | 0 | if (@_) |
| 139 | 3 | 5 | if $f =~ /^\.$/ |
| 140 | 3 | 2 | if $f =~ /^\..$/ |
| 141 | 0 | 2 | if -d "$dir/$f" |
| 142 | 0 | 2 | unless $f =~ s/\.conf$// |
| 145 | 1 | 2 | wantarray ? : |
| 160 | 0 | 0 | wantarray ? : |
| 363 | 0 | 1 | wantarray ? : |
| 472 | 0 | 8 | unless -e $path |
| 475 | 8 | 0 | if ($fh->open("<$path")) { } |
| 479 | 0 | 7 | unless ($self->can($method)) |
| 515 | 0 | 1 | unless open OBJECT, ">>$path" |