File Coverage

blib/lib/SMIL/Href.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 16 17 94.1


line stmt bran cond sub pod time code
1             package SMIL::Href;
2              
3             $VERSION = "0.898";
4              
5 1     1   635 use SMIL::UnanchoredMedia;
  1         4  
  1         38  
6 1     1   8 use SMIL::SystemSwitches;
  1         2  
  1         381  
7              
8             @ISA = ( SMIL::XMLContainer );
9              
10             my @validHrefAttrs = ( 'href' );
11             my $media = 'media';
12              
13             sub init {
14 1     1 0 2 my $self = shift;
15 1         3 my %hash = @_;
16 1         10 $self->SUPER::init( "a" );
17              
18 1         11 my %attrs = $self->createValidAttributes( { %hash },
19             [@validHrefAttrs
20             #, @systemSwitchAttributes
21             ] );
22 1         10 $self->setAttributes( %attrs );
23              
24 1         6 my $ref = new SMIL::UnanchoredMedia( %hash );
25 1         16 $self->setTagContents( $media => $ref );
26             }