File Coverage

blib/lib/SMIL/Region.pm
Criterion Covered Total %
statement 2 5 40.0
branch n/a
condition n/a
subroutine 1 2 50.0
pod 0 2 0.0
total 3 9 33.3


line stmt bran cond sub pod time code
1             package SMIL::Region;
2              
3             $VERSION = "0.898";
4              
5             @ISA = qw( SMIL::XMLTag );
6              
7             sub init {
8 2     2 0 4 my $self = shift;
9 2         11 $self->SUPER::init( "region" );
10             }
11              
12             sub getAttributeValue
13             {
14 0     0 0   my $self = shift;
15 0           my $attr = shift;
16 0           return $self->{ _attributes }->{ $attr };
17             }