File Coverage

blib/lib/SMIL/Seq.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 14 15 93.3


line stmt bran cond sub pod time code
1             package SMIL::Seq;
2              
3             $VERSION = "0.898";
4              
5 1     1   5 use SMIL::TimelineBase;
  1         1  
  1         102  
6 1     1   6 use SMIL::XMLContainer;
  1         2  
  1         98  
7              
8             @ISA = qw( SMIL::XMLContainer );
9              
10             sub init {
11 1     1 0 4 my $self = shift;
12 1         2 my %hash = @_;
13 1         7 $self->SUPER::init( "seq" );
14            
15 1         17 my %attrs = $self->createValidAttributes( { %hash },
16             [@timelineAttributes] );
17 1         8 $self->setAttributes( %attrs );
18             }