File Coverage

blib/lib/SMIL/MediaFactory.pm

Criterion	Covered	Total	%
statement	20	21	95.2
branch	7	8	87.5
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	31	34	91.1

package SMIL::MediaFactory;

$VERSION = "0.898";

require Exporter;
@ISA = qw( Exporter );
@EXPORT = qw( getMediaObject );

use SMIL::Href;
use SMIL::AnchoredMedia;
use SMIL::UnanchoredMedia;

my $href = 'href';
my $layout = 'layout';
my $anchors = 'anchors';
my $switch = 'switch';
my $switch_target = 'switch-target';


sub getMediaObject {

    my %hash = @_ ;
    # check here to see if we have a 'href', if so create Href object,
    # otherwise create either Unanchored or Anchored media depending
    # on existence of 'anchors' element
    my $ref;

    # Look for the switch parameter
    my $switch_param  = $hash{ $switch };
    if( $switch_param ) {
								# Ok, look for the 'switch-target' item in the hash and put that
								# as the switch element
								$hash{ $switch_param } = $hash{ $switch_target };
    }

    @_ = %hash;

    if( $hash{ $href } ) {
								$ref = new SMIL::Href( @_ );
    }
    elsif( $hash{ $anchors } )  {
								$ref = new SMIL::AnchoredMedia( @_ );
    }
    elsif( $hash{ $layout } ) {
								$ref = new SMIL::Layout( @_ );
    }
    else {  # No anchors or hrefs or layouts, create normal media object
								$ref = new SMIL::UnanchoredMedia( @_ );
    }

    return $ref;
}

1;