| blib/lib/Inline/Guile.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 1 | 14 | 7.1 |
| line | true | false | branch |
|---|---|---|---|
| 41 | 0 | 0 | unless -d $path |
| 42 | 0 | 0 | unless -d $$self{'API'}{'build_dir'} |
| 45 | 0 | 0 | unless open OBJECT, ">$obj" |
| 46 | 0 | 0 | unless close OBJECT |
| 61 | 3 | 0 | if $@ |
| 63 | 0 | 0 | unless $result == 1 |
| 75 | 0 | 0 | if (Guile::procedure_p($proc)) |