File Coverage

blib/lib/Notify/Notice.pm

Criterion	Covered	Total	%
statement	32	41	78.0
branch	1	6	16.6
condition	1	6	16.6
subroutine	9	12	75.0
pod	0	4	0.0
total	43	69	62.3

package Notify::Notice;

require 5.00503;
use strict;
use Carp;

require Exporter;

our @ISA = qw( Exporter );
our %EXPORT_TAGS = (
	'all' => [qw( EMPTY OUTGOING_PENDING WAITING_RESPONSE WAITING_PROCESSING FAILURE DONE )]
);
our @EXPORT_OK = qw( );
our @EXPORT = ( @{ $EXPORT_TAGS{'all'} } );
#our $VERSION = do { my @r = (q$Revision: 1.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
our $VERSION = '0.0.1';

# Constants that indicate notification status
use constant EMPTY              => 0;
use constant OUTGOING_PENDING   => 1;
use constant WAITING_RESPONSE   => 2;
use constant WAITING_PROCESSING => 3;
use constant FAILURE            => 4;
use constant DONE               => 5;

our @attribs = qw( status attempts id src dest message transport time_created time_updated history );

sub new {

	my ($self, $hash_vals) = @_;
	my $class = ref($self) || $self;
	my $this = {};
	bless $this, $class;

	# Set our notification attribs to a blank hash
	$this->{'__ATTRIBS'} = { };

	# Copy in preset values
	foreach (@attribs) {

		$this->{'__ATTRIBS'}->{$_} = $hash_vals->{$_}
			if exists $hash_vals->{$_};

	}

	return $this;

} #end sub new

sub attribs {

	my ($self) = @_;
	return @attribs;

} #end sub attribs

sub getNotice {

	my ($self) = @_;
	# Return a copy of the hash
	return \%{ $self->{'__ATTRIBS'} };

} #end sub getNotice

sub setNotice {

	my ($self, $attribs) = @_;

	confess "Error: Must receive hash reference to set Notice attributes."
		unless $attribs and ref ($attribs) eq 'HASH';

	# Change the internal to reflect the changes
	foreach (keys %$attribs) {

		$self->{'__ATTRIBS'}->{$_} = $attribs->{$_}
			if grep /^$_$/, @attribs;

	}

} #end sub setNotice

1;

__END__