| blib/lib/App/TodoList.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 12 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 43 | 1 | 1 | if $index < 1 or $index > scalar @{$self->{'tasks'};} |
| 51 | 1 | 1 | if $index < 1 or $index > scalar @{$self->{'tasks'};} |
| 59 | 7 | 0 | if (-e $self->{'file'}) |
| 60 | 0 | 7 | unless open my $fh, "<", $self->{'file'} |
| 64 | 1 | 6 | if $json |
| 70 | 0 | 8 | unless open my $fh, ">", $self->{'file'} |