File Coverage

blib/lib/Mail/SimpleList/Aliases.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition	2	3	66.6
subroutine	9	9	100.0
pod	4	4	100.0
total	37	38	97.3

package Mail::SimpleList::Aliases;

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

use File::Spec;

use Mail::SimpleList::Alias;

use vars qw( $VERSION );
$VERSION = '0.92';

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

	$class->SUPER::new( $directory );
}

sub stored_class
{
	'Mail::SimpleList::Alias';
}

sub storage_extension
{
	'sml'
}

sub create
{
	my ($self, $owner) = @_;

	return Mail::SimpleList::Alias->new(
		owner   => $owner,
		members => [$owner],
	);
}

1;

__END__