view release on metacpan or  search on metacpan

lib/TCP/Rebuild.pm  view on Meta::CPAN

=cut

sub new {
  my $class    = shift;
  my %defaults = (
    separator	=> 0,
    filter	=> ''
  );

  my $self = bless { %defaults, @_ } => $class;

  $self->{connections} = {};

  return $self;
}

sub _end_connection {
  my ($self, $key, $conn, $message) = @_;

  my $connections = $self->{connections};