| blib/lib/JSAN/Librarian.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 26 | 34.6 |
| line | true | false | branch |
|---|---|---|---|
| 81 | 1 | 0 | defined _STRING($_[0]) && -d $_[0] ? : |
| 89 | 0 | 1 | @_ ? : |
| 0 | 1 | unless $$self{'index_file'} = @_ ? $self->_new_param(shift()) : $self->_new_default | |
| 100 | 0 | 0 | unless my $param = shift() |
| 112 | 2 | 0 | unless -f $path |
| 169 | 0 | 1 | 'File::Spec'->file_name_is_absolute($file) ? : |
| 241 | 0 | 1 | if (-e $path) { } |
| 242 | 0 | 0 | unless -w $path |
| 247 | 0 | 1 | unless (-d $dir) |
| 249 | 0 | 0 | if $@ |
| 258 | 0 | 1 | unless $config->write($path) |
| 282 | 0 | 0 | $self->index_exists ? : |
| 309 | 0 | 10 | if $JSAN::Librarian::VERBOSE |