File Coverage

blib/lib/SMIL/Par.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 22 23 95.6


line stmt bran cond sub pod time code
1             package SMIL::Par;
2              
3             $VERSION = "0.898";
4              
5 1     1   6 use Carp;
  1         1  
  1         80  
6 1     1   1494 use SMIL::TimelineBase;
  1         7  
  1         595  
7 1     1   8 use SMIL::SystemSwitches;
  1         3  
  1         96  
8 1     1   5 use SMIL::XMLContainer;
  1         4  
  1         139  
9              
10             @ISA = qw( SMIL::XMLContainer );
11              
12             sub init {
13 1     1 0 8 my $self = shift;
14 1         3 my %hash = @_;
15 1         8 $self->SUPER::init( "par" );
16              
17 1         11 my %attrs = $self->createValidAttributes( { %hash },
18             [@timelineAttributes,
19             @systemSwitchAttributes] );
20              
21 1         8 $self->setAttributes( %attrs );
22              
23             }