File Coverage

lib/Mail/TempAddress/Address.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	4	4	100.0
condition			n/a
subroutine	9	9	100.0
pod	5	6	83.3
total	45	46	97.8

package Mail::TempAddress::Address;

use strict;

use Mail::Action::Address;
use Class::Roles
	does => 'address_expires',
	does => 'address_named',
	does => 'address_described';

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

sub owner
{
	my $self = shift;
	return $self->{owner};
}

sub attributes
{
	{ expires => 1, description => 1 }
}

sub add_sender
{
	my ($self, $sender) = @_;

	my $key                  = $self->get_key( $sender );
	$self->{senders}{ $key } = $sender;

	return $key;
}

sub get_key
{
	my ($self, $sender) = @_;
	return $self->{keys}{ $sender } if exists $self->{keys}{ $sender };

	my $key  = sprintf '%x', reverse scalar time();

	do
	{
		$key = sprintf '%x', reverse( time() + rand( $$ ) );
	} while ( exists $self->{keys}{ $key } );

	return $self->{keys}{ $sender } = $key;
}

sub get_sender
{
	my ($self, $key) = @_;

	return unless exists $self->{senders}{ $key };
	return $self->{senders}{ $key };
}

1;

__END__