File Coverage

blib/lib/SMIL/RootLayout.pm

Criterion	Covered	Total	%
statement	5	9	55.5
branch			n/a
condition			n/a
subroutine	2	4	50.0
pod	0	3	0.0
total	7	16	43.7

package SMIL::RootLayout;

$VERSION = "0.898";

use SMIL::XMLTag;

@ISA = qw( SMIL::XMLTag );

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

sub getRootHeight {
    my $self = shift;
    return $self->getAttribute( "height" );
}

sub getRootWidth {
    my $self = shift;
    return $self->getAttribute( "width" );
}