| blib/lib/Inline/Files.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 20 | 70.0 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 8 | 0 | if $file =~ m[^(.*)/(.*)$] |
| 27 | 1 | 0 | if ($next eq '-backup') { } |
| 30 | 0 | 1 | unless open IN, $file and open OUT, ">$backup" and print OUT readline IN and close IN and close OUT |
| 61 | 8 | 8 | unless $source |
| 91 | 1 | 5 | unless $$symbol |
| 92 | 2 | 3 | $impl->{'writable'} ? : |
| 93 | 0 | 5 | unless &vf_open($symbol, "$open_mode$$symbol", $symbol) |
| 94 | 0 | 5 | unless tied *$symbol |
| 102 | 0 | 2 | unless $files{$_[0]} |
| 136 | 2 | 8 | unless $key =~ /$validkey/ |