File Coverage

blib/lib/XML/ASX/Repeat.pm

Criterion	Covered	Total	%
statement	12	36	33.3
branch	0	6	0.0
condition	0	3	0.0
subroutine	4	9	44.4
pod	0	4	0.0
total	16	58	27.5

package XML::ASX::Repeat;

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

@ISA = qw(XML::ASX);

use XML::ASX::Entry;

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

$VERSION = '0.01';

my %RW_SLOTS = (
			   count => '1',
			  );

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

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

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

	return $self;
}

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

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

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

sub xml {
	my $self = shift;

	my $content = join '', ($self->each_entry);

	return $self->entag('Repeat',$content,{COUNT=>$self->count});
}

1;
__END__