File Coverage

blib/lib/Servlet/ServletRequestWrapper.pm

Criterion	Covered	Total	%
statement	63	71	88.7
branch	1	2	50.0
condition			n/a
subroutine	28	31	90.3
pod	27	27	100.0
total	119	131	90.8

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

package Servlet::ServletRequestWrapper;

use base qw(Servlet::ServletRequest);
use fields qw(request);
use strict;
use warnings;

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

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

    $self->{request} = $request;

    return $self;
}

sub getAttribute {
    my $self = shift;

    return $self->getRequest()->getAttribute(@_);
}

sub getAttributeNames {
    my $self = shift;

    return $self->getRequest()->getAttributeNames(@_);
}

sub getCharacterEncoding {
    my $self = shift;

    return $self->getRequest()->getCharacterEncoding(@_);
}

sub getContentLength {
    my $self = shift;

    return $self->getRequest()->getContentLength(@_);
}

sub getContentType {
    my $self = shift;

    return $self->getRequest()->getContentType(@_);
}

sub getInputHandle {
    my $self = shift;

    return $self->getRequest()->getInputHandle(@_);
}

sub getLocale {
    my $self = shift;

    return $self->getRequest()->getLocale(@_);
}

sub getLocales {
    my $self = shift;

    return $self->getRequest()->getLocales(@_);
}

sub getParameter {
    my $self = shift;

    return $self->getRequest()->getParameter(@_);
}

sub getParameterMap {
    my $self = shift;

    return $self->getRequest()->getParameterMap(@_);
}

sub getParameterNames {
    my $self = shift;

    return $self->getRequest()->getParameterNames(@_);
}

sub getParameterValues {
    my $self = shift;

    return $self->getRequest()->getParameterValues(@_);
}

sub getProtocol {
    my $self = shift;

    return $self->getRequest()->getProtocol(@_);
}

sub getReader {
    my $self = shift;

    return $self->getRequest()->getReader(@_);
}

sub getRemoteAddr {
    my $self = shift;

    return $self->getRequest()->getRemoteAddr(@_);
}

sub getRemoteHost {
    my $self = shift;

    return $self->getRequest()->getRemoteHost(@_);
}

sub getRequest {
    my $self = shift;

    return $self->{request};
}

sub getRequestDispatcher {
    my $self = shift;

    return $self->getRequest()->getRequestDispatcher(@_);
}

sub getScheme {
    my $self = shift;

    return $self->getRequest()->getScheme(@_);
}

sub getServerName {
    my $self = shift;

    return $self->getRequest()->getServerName(@_);
}

sub getServerPort {
    my $self = shift;

    return $self->getRequest()->getServerPort(@_);
}

sub isSecure {
    my $self = shift;

    return $self->getRequest()->isSecure(@_);
}

sub removeAttribute {
    my $self = shift;

    return $self->getRequest()->removeAttribute(@_);
}

sub setAttribute {
    my $self = shift;

    return $self->getRequest()->setAttribute(@_);
}

sub setCharacterEncoding {
    my $self = shift;

    return $self->getRequest()->setCharacterEncoding(@_);
}

sub setRequest {
    my $self = shift;
    my $request = shift;

    $self->{request} = $request;

    return 1;
}

1;
__END__