view release on metacpan or  search on metacpan

bin/bcvi  view on Meta::CPAN

    my($self) = @_;

    $self->get_connection_details();
    $self->DEBUG("Connecting to: " . $self->gateway_address . ':' . $self->port);

    my $peer = $self->gateway_address . ':' . $self->port;
    my $sock = IO::Socket::INET->new(
        PeerAddr => $peer,
    ) or die "Can't connect to '$peer': $!\n";

    binmode($sock);
    my $welcome = $sock->getline() or die "No listener?\n";
    chomp($welcome);
    $self->DEBUG("Server banner: $welcome");
    if($welcome =~ /^100 Ready \(([^)]+)\)/) {
        $self->{server_version} = $1;
    }
    $self->{sock} = $sock;
}