File Coverage

blib/lib/Servlet/ServletContextAttributeEvent.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	36	37	97.3

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

package Servlet::ServletContextAttributeEvent;

use base qw(Servlet::ServletContextEvent);
use fields qw(name value);
use strict;
use warnings;

sub new {
    my $self = shift;
    my $source = shift;
    my $name = shift;
    my $value = shift;

    $self = fields::new($self) unless ref $self;
    $self->SUPER::new($source);

    $self->{name} = $name;
    $self->{value} = $value;

    return $self;
}

sub getName {
    my $self = shift;

    return $self->{name};
}

sub getValue {
    my $self = shift;

    return $self->{value};
}

1;
__END__