/usr/local/lib/perl5/site_perl/5.26.1/x86_64-linux/XS/Framework.x/i/xs/Hash.h | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 8 | 14 | 57.1 |
line | true | false | branch |
---|---|---|---|
171 | 0 | 43 | if (!sv) return; |
172 | 3 | 40 | if (SvTYPE(sv) == SVt_PVHV) return; |
173 | 35 | 5 | if (SvROK(sv)) { // reference to hash? |
175 | 35 | 0 | if (SvTYPE(val) == SVt_PVHV) { |
176 | 35 | 0 | Sv::operator=(val); |
180 | 5 | 0 | if (is_undef()) return reset(); |
182 | 0 | 0 | throw std::invalid_argument("wrong SV* type for Hash"); |