File Coverage

blib/lib/Servlet/Http/HttpSessionEvent.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 16 16 100.0


line stmt bran cond sub pod time code
1             # -*- Mode: Perl; indent-tabs-mode: nil; -*-
2              
3             package Servlet::Http::HttpSessionEvent;
4              
5 1     1   6900 use base qw(Servlet::Util::Event);
  1         3  
  1         648  
6 1     1   6 use strict;
  1         1  
  1         26  
7 1     1   5 use warnings;
  1         1  
  1         62  
8              
9             sub getSession {
10 2     2 1 5 my $self = shift;
11              
12 2         7 return $self->getSource();
13             }
14              
15             1;
16             __END__