File Coverage

blib/lib/Servlet/GenericServlet.pm

Criterion	Covered	Total	%
statement	9	44	20.4
branch	0	2	0.0
condition	0	2	0.0
subroutine	3	14	21.4
pod	10	11	90.9
total	22	73	30.1

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

package Servlet::GenericServlet;

use fields qw(config);
use strict;
use warnings;

sub new {
    my $self = shift;

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

    $self->{config} = undef;

    return $self;
}

sub destroy {
    my $self = shift;

    $self->log('destroy');

    return 1;
}

sub getInitParameter {
    my $self = shift;
    my $name = shift;

    return $self->getServletConfig()->getInitParameter($name);
}

sub getInitParameterNames {
    my $self = shift;

    return $self->getServletConfig()->getInitParameterNames();
}

sub getServletConfig {
    my $self = shift;

    return $self->{config};
}

sub getServletContext {
    my $self = shift;

    return $self->getServletConfig()->getServletContext();
}

sub getServletInfo {
    my $self = shift;

    return '';
}

sub getServletName {
    my $self = shift;

    return $self->getServletConfig()->getServletName();
}

sub init {
    my $self = shift;
    my $config = shift;

    $self->{config} = $config;
    $self->log('init');

    return 1;
}

sub log {
    my $self = shift;
    my $msg = shift || '';
    my $e = shift;

    my $logmsg = sprintf "%s: %s", $self->getServletName(), $msg;
    return $self->getServletContext()->log($logmsg, $e);
}

sub service {
    my $self = shift;
    my $request = shift;
    my $response = shift;

    $self->log('service');

    return 1;
}

1;
__END__