/usr/local/lib/perl5/site_perl/5.26.1/x86_64-linux/XS/Framework.x/i/xs/Ref.h | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 5 | 14 | 35.7 |
line | true | false | branch |
---|---|---|---|
10 | 108030 | 0 | Ref (SV* sv, bool policy = INCREMENT) : Scalar(sv, policy) { _validate(); } |
28 | 108030 | 0 | if (sv) rv = (policy == INCREMENT) ? newRV(sv) : newRV_noinc(sv); |
108030 | 0 | if (sv) rv = (policy == INCREMENT) ? newRV(sv) : newRV_noinc(sv); | |
106 | 0 | 108030 | if (!sv) return; |
107 | 108030 | 0 | if (SvROK(sv)) return; |
108 | 0 | 0 | if (is_undef()) return reset(); |
110 | 0 | 0 | throw std::invalid_argument("SV is not a reference"); |