File Coverage

blib/lib/SMIL/Anchor.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod 0 1 0.0
total 10 11 90.9


line stmt bran cond sub pod time code
1             package SMIL::Anchor;
2              
3             $VERSION = "0.898";
4              
5 1     1   45 use SMIL::XMLTag;
  1         4  
  1         304  
6              
7             @ISA = qw( SMIL::XMLTag );
8              
9             my $href = 'href';
10             my $show = 'show';
11             my @validAttrs = ( 'begin', 'end', 'coords', $href, $show );
12              
13             sub init {
14 1     1 0 2 my $self = shift;
15 1         2 my $hash = shift;
16 1         8 $self->SUPER::init( "anchor" );
17              
18 1         13 my %attrs = $self->createValidAttributes( { %$hash },
19             [ @validAttrs ] );
20 1         12 $self->setAttributes( %attrs );
21             }
22              
23             1;