File Coverage

blib/lib/SMIL/AnchoredMedia.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	3	6	50.0
condition	1	3	33.3
subroutine	4	4	100.0
pod	0	1	0.0
total	29	35	82.8

package SMIL::AnchoredMedia;

$VERSION = "0.898";

use SMIL::MediaAttributes;
use SMIL::Anchor;
use Carp;

@ISA = qw( SMIL::XMLContainer );

my $anchors = 'anchors';
my $anchors_index = 'index';
my $media_type = "type";

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

    my $type = "";
				$type = $hash{ $media_type } if
								( $hash{ $media_type } and $hash{ $media_type } !~ /.\/./ );
    $self->SUPER::init( $type ? $type : "ref" );

    # Process the anchors here
    my $anchors = $hash{ $anchors };

    croak "Creating anchor tag without any anchors, REALLY BAD!\n"
								unless $anchors;

    foreach $anchor ( @$anchors ) {
								$anch = new SMIL::Anchor( $anchor );
								$self->setTagContents( $self->{$anchors_index}++ => $anch );
				}

    my %attrs = $self->createValidAttributes( { %hash },
																																														[ @mediaAttributes ] );

    $self->setAttributes( %attrs );
}

1;