| /usr/local/lib/perl5/site_perl/5.42.0/x86_64-linux/PDL/Core/pdlperl.h | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 14 | 28.5 |
| line | true | false | branch |
|---|---|---|---|
| 27 | 13 | 0 | if (strcmp(objname,"PDL") == 0) { /* shortcut if just PDL */ |
| 29 | 0 | 13 | if (!ret) core->pdl_barf("Error making null pdl"); |
| 30 | 13 | 0 | if (svp) { |
| 33 | 13 | 0 | if (bless_stash) *svp = sv_bless(*svp, bless_stash); |
| 36 | 0 | 0 | PUSHMARK(SP); |
| 37 | 0 | 0 | XPUSHs(to_push); |
| 44 | 0 | 0 | if (svp) *svp = sv; |