File Coverage

blib/lib/POEIKC/Plugin/GlobalQueue/Message.pm

Criterion	Covered	Total	%
statement	9	21	42.8
branch	0	2	0.0
condition	0	3	0.0
subroutine	3	5	60.0
pod	1	2	50.0
total	13	33	39.3

package POEIKC::Plugin::GlobalQueue::Message;

use strict;
use 5.008_001;
our $VERSION = '0.01';
use base qw(Class::Accessor::Fast);

__PACKAGE__->mk_accessors(qw/createTime expireTime substance tag gqId/);


sub new {
	my $class = shift ;
	my $substance = shift;
	my %hash = @_;
	my $self = $class->SUPER::new();
	$self->createTime(time);
	$self->tag('non-tag');
	$self->substance($substance);
	$self->$_($hash{$_}) for (keys %hash);
	return $self ;
}

sub expire {
	my $self = shift;
	return $self	if not($self->expireTime) or
		($self->createTime  > (time - $self->expireTime));
	return ;
}



1;
__END__