File Coverage

blib/lib/XML/ASX/Event.pm

Criterion	Covered	Total	%
statement	26	35	74.2
branch	4	8	50.0
condition	0	6	0.0
subroutine	7	8	87.5
pod	0	3	0.0
total	37	60	61.6

package XML::ASX::Event;

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 = (
				name => '',
				whendone => '',
			   );

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 = XML::ASX::Entry->new;
	push @{$self->{queue}}, $entry;

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

sub xml {
	my $self = shift;

	die __PACKAGE__.': name() required' unless $self->name;
	die __PACKAGE__.': whendone() required.  Valid values are "RESUME","NEXT","BREAK"' unless $self->whendone eq 'RESUME' or $self->whendone eq 'NEXT' or $self->whendone eq 'BREAK';

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

	return $self->entag('Event',$content,{NAME=>$self->name,WHENDONE=>$self->whendone});
}

1;
__END__