File Coverage

blib/lib/POEx/HTTP/Server/Connection.pm

Criterion	Covered	Total	%
statement	32	57	56.1
branch	0	4	0.0
condition			n/a
subroutine	11	26	42.3
pod	15	21	71.4
total	58	108	53.7

# $Id: Connection.pm 716 2010-12-17 16:29:05Z fil $
# Copyright 2010 Philip Gwyn
package POEx::HTTP::Server::Connection;

use strict;
use warnings;
use Socket;

use Scalar::Util qw( blessed );

sub new
{
    my( $package, $ID, $socket ) = @_;
    my $self = bless {ID=>$ID}, shift;
    $self->__socket( $socket );
    return $self;
}

sub __socket
{
    my( $self, $socket ) = @_;

    my $peername = getpeername( $socket );
    my $sockname = getsockname( $socket );

    my @in = sockaddr_in($peername);
    $self->{remote_addr} = $in[1];
    $self->{remote_ip} = inet_ntoa( $self->{remote_addr} );
    $self->{remote_port} = $in[0];

    @in = sockaddr_in($sockname);
    $self->{local_addr} = $in[1];
    $self->{local_ip} = inet_ntoa($self->{local_addr});
    $self->{local_port} = $in[0];
}

######################################
sub ID        { $_[0]->{ID} }

sub remote_addr { $_[0]->{remote_addr} }
sub peeraddr    { $_[0]->{remote_addr} }
sub remote_host { $_[0]->{remote_ip} }
sub peerhost    { $_[0]->{remote_ip} }
sub remote_ip   { $_[0]->{remote_ip} }
sub remote_port { $_[0]->{remote_port} }
sub peerport    { $_[0]->{remote_port} }

sub local_addr  { $_[0]->{local_addr} }
sub hostaddr    { $_[0]->{local_addr} }
sub local_host  { $_[0]->{local_ip} }
sub hosthost    { $_[0]->{local_ip} }
sub local_ip    { $_[0]->{local_ip} }
sub local_port  { $_[0]->{local_port} }
sub hostport    { $_[0]->{local_port} }


######################################
sub user {
    my $self = @_;
    my $rv = $self->{user};
    if (@_ == 2) { $self->{user} = $_[1] }
    return $rv;
}

sub authtype {
    my $self = @_;
    my $rv = $self->{authtype};
    if (@_ == 2) { $self->{authtype} = $_[1] }
    return $rv;
}

sub aborted {
    return $_[0]->{aborted};
}

sub fileno {
    return 0;
}

sub clone {
    my $self = @_;
    my $new = bless { %$self };
    return $new;
}


1;

__END__