| blib/lib/Test/AskAnExpert/Interface/File.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 20 | 80.0 |
| line | true | false | branch |
|---|---|---|---|
| 122 | 1 | 2 | unless (-e $$self{'_dir'}) |
| 124 | 0 | 1 | unless mkpath($$self{'_dir'}) |
| 142 | 0 | 1 | unless open my $qfile, '>', $self->_get_filename($Qobj->id, 'q') |
| 162 | 7 | 13 | if -e $_ |
| 171 | 1 | 4 | unless $self->has_answer($Qobj) |
| 174 | 1 | 3 | if $self->_is_y($id) |
| 175 | 2 | 1 | if $self->_is_n($id) |
| 176 | 1 | 0 | if $self->_is_s($id) |
| 194 | 0 | 4 | wantarray ? : |
| 212 | 1 | 2 | if $$self{'_dircreat'} |