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