Select Code to Download

use B qw( svref_2object SVt_PVHV );
sub is_hash {
    my $ref = shift @_;
    return ref( $ref )
        and svref_2object( $ref ) & SVt_PVHV;
}

sub does_hash {
    my $ref = shift @_;
    return ref( $ref )
        and eval { %$ref; 1 };
}