File Coverage

blib/lib/Aspect/Library/Listenable/Event.pm

Criterion	Covered	Total	%
statement	19	23	82.6
branch	3	4	75.0
condition			n/a
subroutine	5	6	83.3
pod	0	3	0.0
total	27	36	75.0

package Aspect::Library::Listenable::Event;

use strict;
use warnings;

our $VERSION = '0.97_06';

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

sub AUTOLOAD {
	my ($self, $value) = @_;
	my $key  = our $AUTOLOAD;
	return if $key =~ /DESTROY$/;
	$key =~ s/^.*:://;
	return @_ == 1
		? $self->{$key}
		: ( $self->{$key} = $value );
}

sub clone {
	my $self  = shift;
	my $class = ref $self;
	my $clone = $class->new;
	while ( my ($key, $value) = each %$self ) {
		$clone->{$key} = $value;
	}
	return $clone;
}

sub as_string {
	my $self = shift;
	local $_;
	return join ', ', map { "$_:$self->{$_}" } sort keys %$self;
}

1;