sub can_stringify
{
    my ($thingy) = @_;

    return 1 unless ref $thingy;
    return 0 unless blessed $thingy;
    return $thingy->can('STRINGIFY');
}