view release on metacpan or  search on metacpan

script/TimeServer.pm  view on Meta::CPAN

use strict;
use warnings;

use Asyncore;
use TimeChannel;
use base qw( Asyncore::Dispatcher );

sub init {
    my($self, $port, $family, $type) = @_;

    $self->SUPER::init();

    if (not $port) {
        $port = 37;
    }

    $self->create_socket($family, $type);
    $self->bind($port);
    $self->listen(5);
}