File Coverage

blib/lib/SMIL/Head.pm

Criterion	Covered	Total	%
statement	40	70	57.1
branch	5	24	20.8
condition	2	9	22.2
subroutine	10	15	66.6
pod	0	10	0.0
total	57	128	44.5

package SMIL::Head;

my $debug = 0;

$VERSION = "0.898";

use SMIL::XMLContainer;
use SMIL::XMLTag;
use SMIL::Layout;
use SMIL::Meta;
use SMIL::Transition;

@ISA = qw( SMIL::XMLContainer );

my $layout = "layout";
my $metas = "metas";
my $transitions = 'transitions';
my $meta = "meta";

sub init {
    my $self = shift;
    my %hash = @_;
    $self->SUPER::init( "head" );
    if( $hash{ 'height' } && $hash{ 'width' } ) {
	$self->initLayout( @_ ) ;
	# print "Setting layout" if $debug;
    }
    $self->initMetas( @_ ) if( $hash{ 'meta' } );
}

sub getRootHeight {
    my $self = shift;
    my $ly = $self->getContentObjectByName( $layout );
    return $ly ? $ly->getRootHeight() : 0;
}

sub getRootWidth {
    my $self = shift;
    my $ly = $self->getContentObjectByName( $layout );
    return $ly ? $ly->getRootWidth() : 0;
}

sub initLayout {
    my $self = shift;
    $self->{$layout} = new SMIL::Layout( @_ );
    $self->setTagContents( $layout => $self->{$layout} );
}

sub getRegionAttribute
{
    my $self = shift;
    my $region_name = shift;
    my $attr = shift;
    my $return_value;
    my $ly;
    my $found_region;
    if( $self ) {
	if( $ly = $self->getContentObjectByName( $layout ) ) {

	    if( $found_region = $ly->getRegion( $region_name ) ) {
		if( $found_region ) {
		    # extract the attribute value, send it back
		    $return_value = $found_region->getAttributeValue( $attr );
		}
		else {
		    #print "No region found.\n";
		}
	    }
	    else {
		#print "No found region?";
	    }
	}
	else {
	    #print "No layout?";
	}
    }
    else {
	#print "No object.\n";
    }
    return $return_value;
}

sub initMetas {
    my $self = shift;
    my %hash = @_;

    if( $hash{ $meta } ) {
	$self->setMeta( $hash{ $meta } );
    }
}

sub setMeta {

    my $self = shift;
    my $hash_ref = shift;
    my $meta_tags_ref = $self->getContentObjectByName( $metas );

    if( !( $meta_tags_ref && @$meta_tags_ref ) ) {
								$meta_tags_ref = [];
    }

    # Extract the meta tags
    foreach $name ( keys %$hash_ref ) {
								my $meta = new SMIL::Meta( $name, $$hash_ref{ $name } );
								# Now, push it on the stack of meta tags
								push @$meta_tags_ref, $meta;
    }

#    $self->{$metas} = $meta_tags_ref;
    $self->setTagContents( $metas => $meta_tags_ref );
}

sub addTransition {
    my $self = shift;
    my $transitions_ref = $self->getContentObjectByName( $transitions );
    if( !( $transitions_ref && @$transitions_ref ) ) {
	$transitions_ref = [];
    }

    my $transition = new SMIL::Transition( @_ );
    push @$transitions_ref, $transition;
#				$self->{ $transitions } = $transitions_ref;
    $self->setTagContents( $transitions => $transitions_ref );
}

sub addRegion {
    my $self = shift;
    $self->{$layout} = new SMIL::Layout( @_ )
	unless $self->getContentObjectByName( $layout );
    $self->getContentObjectByName( $layout )->addRegion( @_ );
}

my $switch = 'switch';
my $layouts = 'layouts';

sub setSwitchedLayout {
    my $self = shift;
    my %hash = @_;

    # Extract the switch attribute
    my $switch_attribute = $hash{ $switch };
    my $thelayout = $hash{ $layouts };

    my $switch_obj = new SMIL::Switch( $switch_attribute, $thelayout );
    $self->setTagContents( $layout => $switch_obj );
}