| /usr/local/lib/perl5/site_perl/5.26.1/x86_64-linux/XS/Framework.x/i/xs/Object.h | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 20 | 40.0 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 7 | 0 | Object (T* sv, bool policy = INCREMENT) : Sv(sv, policy) { _validate(); } |
| 22 | 135 | 0 | Object (const Sv& oth) : Sv(oth) { _validate(); } |
| 88 | 0 | 142 | if (!sv) return; |
| 89 | 0 | 142 | if (SvOBJECT(sv)) return; |
| 90 | 142 | 0 | if (SvROK(sv)) { // reference to object? |
| 92 | 142 | 0 | if (SvOBJECT(val)) { |
| 93 | 142 | 0 | _ref = sv; |
| 94 | 142 | 0 | Sv::operator=(val); |
| 98 | 0 | 0 | if (is_undef()) return reset(); |
| 100 | 0 | 0 | throw std::invalid_argument("SV is not an Object (blessed value or reference to blessed value)"); |