File Coverage

blib/lib/Servlet/Http/HttpServletRequestWrapper.pm

Criterion	Covered	Total	%
statement	53	55	96.3
branch			n/a
condition			n/a
subroutine	25	26	96.1
pod	0	23	0.0
total	78	104	75.0

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

package Servlet::Http::HttpServletRequestWrapper;

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

sub getAuthType {
    my $self = shift;

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

sub getContextPath {
    my $self = shift;

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

sub getCookies {
    my $self = shift;

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

sub getDateHeader {
    my $self = shift;

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

sub getHeader {
    my $self = shift;

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

sub getHeaderNames {
    my $self = shift;

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

sub getHeaders {
    my $self = shift;

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

sub getIntHeader {
    my $self = shift;

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

sub getMethod {
    my $self = shift;

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

sub getPathInfo {
    my $self = shift;

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

sub getPathTranslated {
    my $self = shift;

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

sub getQueryString {
    my $self = shift;

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

sub getRemoteUser {
    my $self = shift;

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

sub getRequestedSessionId {
    my $self = shift;

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

sub getRequestURI {
    my $self = shift;

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

sub getRequestURL {
    my $self = shift;

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

sub getServletPath {
    my $self = shift;

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

sub getSession {
    my $self = shift;

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

sub getUserPrincipal {
    my $self = shift;

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

sub isRequestedSessionIdFromCookie {
    my $self = shift;

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

sub isRequestedSessionIdFromURL {
    my $self = shift;

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

sub isRequestedSessionIdValid {
    my $self = shift;

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

sub isUserInRole {
    my $self = shift;

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

1;
__END__