sub isa {
    $_[1] eq 'IO::Socket'
        ? 1
        : shift->SUPER::isa(@_);
}