use strict;
package POE::Component::Server::HTTP::Request;

use vars qw(@ISA);
use HTTP::Request;
@ISA = qw(HTTP::Request);

sub new {
    my $package = shift;
    my $self = $package->SUPER::new(@_);
    $self->is_error($self->method eq 'ERROR');
    return $self
}

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

sub is_error {
    my $self = shift;
    if (@_) {
        if($_[0]) {
            $self->{is_error} = 1;
        } else {
            $self->{is_error} = 0;
        }
    }
    return $self->{is_error};
}

1;