Select Code to Download

sub isa
{
...
    return 0 if $is_builtin{$type};
    return $self->SUPER::isa($type);
}

sub can_stringify
{
...
    return 0 unless blessed $thingy;
    return $thingy->can('STRINGIFY');
}

if (UNIVERSAL::can($x, 'can') && $x->can('(""'))
{
    # Do stuff here
}