view release on metacpan or  search on metacpan

lib/Games/Axmud/Obj/Telnet.pm  view on Meta::CPAN

#    use Socket qw(AF_INET SOCK_STREAM inet_aton sockaddr_in);
    use Socket qw(AF_INET SOCK_STREAM SOL_SOCKET SO_KEEPALIVE inet_aton sockaddr_in);
    use Symbol qw(qualify);

    ## Base classes.
    use vars qw(@ISA);
    @ISA = qw(Exporter);
    if (&_io_socket_include) {  # successfully required module IO::Socket
        push @ISA, "IO::Socket::INET";
    }
    my $AF_INET6 = &_import_af_inet6();
    my $AF_UNSPEC = &_import_af_unspec() || 0;
    my $AI_ADDRCONFIG = &_import_ai_addrconfig() || 0;
    my $EAI_BADFLAGS = &_import_eai_badflags() || -1;
    my $EINTR = &_import_eintr();

    ## Global variables.
#    use vars qw($VERSION @Telopts %Axmud_Telopts);
#    $VERSION = "3.04";
    use vars qw(@Telopts %Axmud_Telopts);
    @Telopts = ("BINARY", "ECHO", "RCP", "SUPPRESS GO AHEAD", "NAMS", "STATUS",

lib/Games/Axmud/Obj/Telnet.pm  view on Meta::CPAN

        eval {
        local $SIG{"__DIE__"} = "DEFAULT";
        local $SIG{ALRM} = sub { die };
        alarm 0;
        };

        ! $@;
    } # end sub _have_alarm


    sub _import_af_inet6 {
        local $@;

        eval {
        local $SIG{"__DIE__"} = "DEFAULT";

        Socket::AF_INET6();
        };
    } # end sub _import_af_inet6


    sub _import_af_unspec {
        local $@;

        eval {
        local $SIG{"__DIE__"} = "DEFAULT";

        Socket::AF_UNSPEC();
        };