lib/AnyEvent/HTTPD/HTTPServer.pm

   1 package AnyEvent::HTTPD::HTTPServer;
   2 use strict;
   3 no warnings;
   4
   5 use Object::Event;
   6 use AnyEvent::Handle;
   7 use AnyEvent::Socket;
   8
   9 use AnyEvent::HTTPD::HTTPConnection;
  10
  11 our @ISA = qw/Object::Event/;
  12
  13 =head1 NAME
  14
  15 AnyEvent::HTTPD::HTTPServer - A simple and plain http server
  16
  17 =head1 DESCRIPTION
  18
  19 This class handles incoming TCP connections for HTTP clients.
  20 It's used by L<AnyEvent::HTTPD> to do it's job.
  21
  22 It has no public interface yet.
  23
  24 =head1 COPYRIGHT & LICENSE
  25
  26 Copyright 2008 Robin Redeker, all rights reserved.
  27
  28 This program is free software; you can redistribute it and/or modify it
  29 under the same terms as Perl itself.
  30
  31 =cut
  32
  33 sub new {
  34    my $this  = shift;
  35    my $class = ref($this) || $this;
  36    my $self  = { @_ };
  37    bless $self, $class;
  38
  39    tcp_server $self->{host}, $self->{port}, sub {
  40       my ($fh) = @_;
  41       unless ($fh) {
  42          $self->event (error => "couldn't accept client: $!");
  43          return;
  44       }
  45       $self->accept_connection ($fh);
  46    };
  47
  48    return $self
  49 }
  50
  51 sub accept_connection {
  52    my ($self, $fh) = @_;
  53
  54    my $htc = AnyEvent::HTTPD::HTTPConnection->new (fh => $fh);
  55    $self->{handles}->{$htc} = $htc;
  56
  57    $htc->reg_cb (disconnect => sub {
  58       delete $self->{handles}->{$_[0]};
  59       $self->event (disconnect => $_[0], $_[1])
  60    });
  61
  62    $self->event (connect => $htc);
  63 }
  64
  65 1;