CPAN::Groonga

;
    ok $dh2->object_id;

    isnt $dh->object_id, $dh2->object_id;
}

# A regex object?
{
    my $re = qr/foo/;
    ok $re->object_id;

    my $re2 = qr/foo/;
    isnt $re->object_id, $re2->object_i

y = $obj;
    is $obj->object_id, $copy->object_id;

    my $obj2 = new_ok "My::Class", [{}];
    isnt $obj->object_id, $obj2->object_id;
}


# Coderef
{
    my $obj = new_ok "My::Class", [sub { 42 }]

  my $copy = $obj;
    is $obj->object_id, $copy->object_id;

    my $obj2 = new_ok "My::Class", [sub { 42 }];
    ok $obj2->object_id;
    isnt $obj->object_id, $obj2->object_id;
}


done_testing();

ss";
    ok $obj->object_uuid;

    my $copy = $obj;
    is $obj->object_uuid, $copy->object_uuid;

    my $obj2 = new_ok "My::Class";
    isnt $obj->object_uuid, $obj2->object_uuid;
}

done_testing;