File Coverage

blib/lib/XML/ASX/File.pm

Criterion	Covered	Total	%
statement	39	70	55.7
branch	2	26	7.6
condition	3	12	25.0
subroutine	10	12	83.3
pod	0	5	0.0
total	54	125	43.2

package XML::ASX::File;

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

@ISA = qw(XML::ASX);

use XML::ASX::Entry;
use XML::ASX::Repeat;
use XML::ASX::Event;

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

$VERSION = '0.01';

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

				version => '3.0',
				previewmode => 'YES',
				bannerbar => 'AUTO',

				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_repeat {
	my $self = shift;
	my $repeat = shift || XML::ASX::Repeat->new;
	push @{$self->{queue}}, $repeat;

	return $self->{queue}->[scalar @{$self->{queue}} - 1];
}

sub add_entry {
	my $self = shift;
	my $entry = shift || XML::ASX::Entry->new;
	push @{$self->{queue}}, $entry;

	return $self->{queue}->[scalar @{$self->{queue}} - 1];
}

sub add_event {
	my $self = shift;
	my $event = shift || XML::ASX::Event->new;
	push @{$self->{queue}}, $event;

	return $self->{queue}->[scalar @{$self->{queue}} - 1];
}

sub xml {
	my $self = shift;

	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('ABSTRACT',$self->abstract)				if $self->abstract;
	$content .= $self->entag('TITLE',$self->title)					if $self->title;
	$content .= $self->entag('AUTHOR',$self->author)				if $self->author;
	$content .= $self->entag('BASE','',{href=>$self->base}) if $self->base;
	$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('Banner',$bannercontent,{href=>$self->banner}) if $self->banner;
	$content .= $self->entag('MoreInfo','',{href=>$self->moreinfo,target=>$self->target},1)		if $self->moreinfo;
	$content .= $paramstr;

	$content .= join "", ($self->each_in_queue);

	return $self->entag('ASX',$content,{previewmode => $self->previewmode, version => $self->version, BannerBar => $self->bannerbar},0);
}

1;
__END__