view release on metacpan or  search on metacpan

lib/DBGp/Client/Listener.pm  view on Meta::CPAN

    die "Specify either 'port' or 'path'" unless $self->{port} || $self->{path};

    return $self;
}

=head2 listen

    $listener->listen;

Starts listening on the endpoint specified to the constructor;
C<die()>s if there is an error.

=cut

sub listen {
    my ($self) = @_;

    if ($self->{port}) {
        $self->{socket} = IO::Socket::INET->new(
            Listen    => 1,