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?)