sub isa
{
    my $self = shift;
    my ($type) = @_;

    my %is_builtin = map { $_ => 1 } qw(
        HASH ARRAY SCALAR CODE GLOB
    );

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