sub serialise {
    my $ref = shift;
    my $str = undef;
    eval{ $str = $ref->toString };
    return $str if defined $str;
    $str = XS_serialise($ref);
    return $str;
}