File Coverage

lib/Mail/TempAddress/Addresses.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition	4	6	66.6
subroutine	9	9	100.0
pod	5	5	100.0
total	42	44	95.4

package Mail::TempAddress::Addresses;

use strict;
use base 'Mail::Action::Storage';

use Mail::TempAddress::Address;
use File::Spec;

sub new
{
	my ($class, $directory) = @_;
	$directory ||= File::Spec->catdir( $ENV{HOME}, '.addresses' );
	$class->SUPER::new( $directory );
}

sub stored_class
{
	'Mail::TempAddress::Address';
}

sub storage_extension
{
	'mta'
}

sub generate_address
{
	my ($self, $id) = @_;

	$id ||= sprintf '%x', reverse scalar time;

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

	return $id;
}

sub create
{
	my ($self, $from_address) = @_;
	Mail::TempAddress::Address->new( owner => $from_address );
}

1;
__END__