File Coverage

blib/lib/Servlet/Util/Event.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	25	25	100.0

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

package Servlet::Util::Event;

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

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

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

    $self->{source} = $source;

    return $self;
}

sub getSource {
    my $self = shift;

    return $self->{source};
}

1;
__END__