File Coverage

blib/lib/Servlet/ServletResponseWrapper.pm

Criterion	Covered	Total	%
statement	49	53	92.4
branch	1	2	50.0
condition			n/a
subroutine	19	20	95.0
pod	16	16	100.0
total	85	91	93.4

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

package Servlet::ServletResponseWrapper;

use base qw(Servlet::ServletResponse);
use fields qw(response);
use strict;
use warnings;

sub new {
    my $self = shift;
    my $response = shift;

    $self = fields::new($self) unless ref $self;

    $self->{response} = $response;

    return $self;
}

sub flushBuffer {
    my $self = shift;

    $self->getResponse()->flushBuffer();
}

sub getBufferSize {
    my $self = shift;

    $self->getResponse()->getBufferSize();
}

sub getCharacterEncoding {
    my $self = shift;

    $self->getResponse()->getCharacterEncoding();
}

sub getLocale {
    my $self = shift;

    $self->getResponse()->getLocale();
}

sub getOutputHandle {
    my $self = shift;

    $self->getResponse()->getOutputHandle();
}

sub getWriter {
    my $self = shift;

    $self->getResponse()->getWriter();
}

sub getResponse {
    my $self = shift;

    return $self->{response};
}

sub isCommitted {
    my $self = shift;

    $self->getResponse()->isCommitted();
}

sub reset {
    my $self = shift;

    $self->getResponse()->reset();
}

sub resetBuffer {
    my $self = shift;

    $self->getResponse()->resetBuffer();
}

sub setBufferSize {
    my $self = shift;
    my $size = shift;

    $self->getResponse()->setBufferSize($size);
}

sub setContentLength {
    my $self = shift;
    my $len = shift;

    $self->getResponse()->setContentLength($len);
}

sub setContentType {
    my $self = shift;
    my $type = shift;

    $self->getResponse()->setContentType($type);
}

sub setLocale {
    my $self = shift;
    my $loc = shift;

    $self->getResponse()->setLocale($loc);
}

sub setResponse {
    my $self = shift;
    my $response = shift;

    $self->{response} = $response;

    return 1;
}

1;
__END__