Select Code to Download

$ perl -MDevel::Hide=Ref::Util::XS,Type::Tiny::XS -MTypes::Standard=-t
+ypes -E'say HashRef->inline_check(q/$myvar/)'
Devel::Hide hides Ref/Util/XS.pm, Type/Tiny/XS.pm
(ref($myvar) eq 'HASH')

$ perl -MDevel::Hide=Ref::Util::XS,Type::Tiny::XS -MTypes::Standard=-t
+ypes -E'say ArrayRef->of(HashRef)->inline_check(q/$myvar/)'
Devel::Hide hides Ref/Util/XS.pm, Type/Tiny/XS.pm
do { (ref($myvar) eq 'ARRAY') and do { my $ok = 1; for my $i (@{$myvar
+}) { ($ok = 0, last) unless (ref($i) eq 'HASH') }; $ok } }