| blib/lib/Tie/ScalarFile.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 18 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 0 | 0 | if (open $fh, '<', $filename or open $fh, '>', $filename) |
| 24 | 0 | 0 | if warnings::enabled() |
| 30 | 0 | 0 | unless ref $self |
| 31 | 0 | 0 | unless open my $fh, $$self |
| 38 | 0 | 0 | unless ref $self |
| 39 | 0 | 0 | unless open my $fh, '>', $self |
| 40 | 0 | 0 | unless syswrite($fh, $value) == length $value |
| 42 | 0 | 0 | unless close $fh |
| 48 | 0 | 0 | unless ref $self |