/* Deal with possibly blessing the hash if the YAML tag has a class */
    if (tag && strEQ(tag, TAG_PERL_PREFIX "hash"))
        tag = NULL;
    if (tag) {
        char *class;
        char *prefix = TAG_PERL_PREFIX "hash:";
        if (*tag == '!') {
            prefix = "!";
        }
        else if (strlen(tag) <= strlen(prefix) ||
            ! strnEQ(tag, prefix, strlen(prefix))
        ) croak(
            loader_error_msg(loader, form("bad tag found for hash: '%s'", tag))
        );
        class = tag + strlen(prefix);
        sv_bless(hash_ref, gv_stashpv(class, TRUE)); 
    }

##</code><code>##

BEGIN {
    {
        package YAML::Sucks::JavaUtilUUID::_alias;
        @ISA = 'YAML::Sucks::JavaUtilUUID';
    }
    $main::{'java.util.UUID::'} = $YAML::Sucks::JavaUtilUUID::{'_alias::'};
}
{
    package YAML::Sucks::JavaUtilUUID;
    use overload '""' => \&asString;
    sub asString {
        my( $self ) = @_;
        return join ' ', values %$self;
    }
}
my $fromYaml = bless { whatever => 'some UUID?' }, 'java.util.notUUID';
print "($fromYaml)\n";
$fromYaml = bless { whatever => 'some UUID?' }, 'java.util.UUID';
print "($fromYaml)\n";
__END__
(java.util.notUUID=HASH(0x367c44))
(some UUID?)