File Coverage

blib/lib/XML/ASX/Entry.pm

Criterion	Covered	Total	%
statement	46	54	85.1
branch	15	30	50.0
condition	2	6	33.3
subroutine	7	8	87.5
pod	0	4	0.0
total	70	102	68.6

package XML::ASX::Entry;

use strict;
use vars qw($VERSION $AUTOLOAD %ASX_SLOTS @ISA);

@ISA = qw(XML::ASX);

use overload '""' => \&xml;

$VERSION = '0.01';

my %RW_SLOTS = (
			   title => '',
			   moreinfo => '',
			   target => '',
			   duration => '',
			   copyright => '',
			   base => '',
			   author => '',
			   abstract => '',
			   clientskip => 'YES',

			   duration => '00:00:00.00',
			   previewduration => '',
			   banner => '',
			   logo_icon => '',
			   logo_mark => '',
);

sub AUTOLOAD {
	my $self = shift;
	my $param = $AUTOLOAD;
	$param =~ s/.*:://;
	die(__PACKAGE__." doesn't implement $param") unless defined($RW_SLOTS{$param}) or defined($ASX_SLOTS{$param});
	$self->{$param} = shift if @_;
	return $self->{$param};
}

sub new {
	my $class = shift;
	my %param = @_;
	my $self = bless {}, $class;

	$self->$_($ASX_SLOTS{$_}) foreach keys %ASX_SLOTS;
	$self->$_($RW_SLOTS{$_}) foreach keys %RW_SLOTS;
	$self->$_($param{$_}) foreach keys %param;

	return $self;
}

sub add_ref {
	my $self = shift;
	push @{$self->{refs}}, shift if @_;
	return $self->{refs}->[scalar @{$self->{refs}} - 1];
}

sub each_ref {
	my $self = shift;
	return $self->{refs} ? @{$self->{refs}} : ();
}

sub xml {
	my $self = shift;

	die __PACKAGE__.': clientskip() must be "YES" or "NO"' if ($self->clientskip ne 'YES' and $self->clientskip ne 'NO');

	my $refstr = '';
	foreach my $ref ($self->each_ref){
		$refstr .= $self->entag('Ref','',{href=>$ref},1);
	}

	my $paramstr = '';
	my %param = $self->each_param;
	foreach my $key (keys %param){
	  $paramstr .= $self->entag('PARAM','',{NAME=>$key,VALUE=>$param{$key}},1);
	}

	my $bannercontent = '';
	$bannercontent .= $self->entag('MoreInfo','',{href=>$self->moreinfo,target=>$self->target},1)		if $self->moreinfo;
	$bannercontent .= $self->entag('Abstract',$self->abstract) if $self->abstract;

	my $content = '';
	$content .= $self->entag('Duration','',{value=>$self->duration},1)	if $self->duration;
	$content .= $self->entag('PreviewDuration','',{value=>$self->duration},1)	if $self->previewduration;
	$content .= $self->entag('Title',$self->title) 				if $self->title;
	$content .= $self->entag('Copyright',$self->copyright) 			if $self->copyright;
	$content .= $self->entag('Logo','',{href=>$self->logo_icon,Style=>'ICON'},1) if $self->logo_icon;
	$content .= $self->entag('Logo','',{href=>$self->logo_mark,Style=>'MARK'},1) if $self->logo_mark;
	$content .= $self->entag('MoreInfo','',{href=>$self->moreinfo,target=>$self->target},1) if $self->moreinfo;
	$content .= $self->entag('Banner',$bannercontent,{href=>$self->banner}) if $self->banner;
	$content .= $refstr;
	$content .= $paramstr;
	return $self->entag('Entry',
		$content,
		{ClientSkip => $self->clientskip},0
	);
}

1;
__END__