| blib/lib/File/Truncate/Undoable.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 24 | 70.8 |
| line | true | false | branch |
|---|---|---|---|
| 53 | 5 | 23 | unless my $taid = $args{-'tx_action_id'} |
| 56 | 0 | 23 | unless defined $path |
| 64 | 14 | 9 | if ($tx_action eq 'check_state') { } |
| 9 | 0 | elsif ($tx_action eq 'fix_state') { } | |
| 65 | 1 | 13 | unless $exists |
| 66 | 2 | 11 | if $is_sym or not $is_file |
| 67 | 0 | 11 | unless @st |
| 68 | 2 | 9 | if $is_zero |
| 70 | 0 | 9 | if $dry_run |
| 82 | 0 | 9 | unless $res->[0] == 200 or $res->[0] == 304 |
| 83 | 0 | 9 | unless open my $fh, '>', $path |
| 85 | 9 | 0 | unless ($>) |