File Coverage

blib/lib/Servlet/Http/HttpServletResponseWrapper.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch			n/a
condition			n/a
subroutine	14	14	100.0
pod	0	11	0.0
total	45	56	80.3

# -*- Mode: Perl; indent-tabs-mode: nil; -*-

package Servlet::Http::HttpServletResponseWrapper;

use base qw(Servlet::ServletResponseWrapper);
use strict;
use warnings;

sub addCookie {
    my $self = shift;

    return $self->getResponse()->addCookie(@_);
}

sub addDateHeader {
    my $self = shift;

    return $self->getResponse()->addDateHeader(@_);
}

sub addHeader {
    my $self = shift;

    return $self->getResponse()->addHeader(@_);
}

sub containsHeader {
    my $self = shift;

    return $self->getResponse()->containsHeader(@_);
}

sub encodeRedirectURL {
    my $self = shift;

    return $self->getResponse()->encodeRedirectURL(@_);
}

sub encodeURL {
    my $self = shift;

    return $self->getResponse()->encodeURL(@_);
}

sub sendError {
    my $self = shift;

    return $self->getResponse()->sendError(@_);
}

sub sendRedirect {
    my $self = shift;

    return $self->getResponse()->sendRedirect(@_);
}

sub setDateHeader {
    my $self = shift;

    return $self->getResponse()->setDateHeader(@_);
}

sub setHeader {
    my $self = shift;

    return $self->getResponse()->setHeader(@_);
}

sub setStatus {
    my $self = shift;

    return $self->getResponse()->setStatus(@_);
}

1;
__END__