File Coverage

blib/lib/SMIL/Meta.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

package SMIL::Meta;

$VERSION = "0.898";

use SMIL::XMLTag;

@ISA = qw( SMIL::XMLTag );

my @validMetaAttrs = ( 'name', 'content' );

sub init {
    my $self = shift;
    $self->SUPER::init( "meta" );

    my $name = shift;
    my $content = shift;

    $self->setAttributes( 'name' => $name,
			 'content' => $content );
}