File Coverage

blib/lib/Servlet/ServletContextEvent.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::ServletContextEvent;
4              
5 1     1   7 use base qw(Servlet::Util::Event);
  1         3  
  1         1685  
6 1     1   7 use strict;
  1         2  
  1         26  
7 1     1   5 use warnings;
  1         1  
  1         60  
8              
9             sub getServletContext {
10 2     2 1 3 my $self = shift;
11              
12 2         6 return $self->getSource();
13             }
14              
15             1;
16             __END__