/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 |
---|---|---|---|
174 | 0 | 43 | if (!sv) return; |
175 | 3 | 40 | if (SvTYPE(sv) == SVt_PVHV) return; |
176 | 35 | 5 | if (SvROK(sv)) { // reference to hash? |
178 | 35 | 0 | if (SvTYPE(val) == SVt_PVHV) { |
179 | 35 | 0 | Sv::operator=(val); |
183 | 5 | 0 | if (is_undef()) return reset(); |
185 | 0 | 0 | throw std::invalid_argument("SV is not a Hash or Hash reference"); |