File Coverage

blib/lib/Mail/SimpleList/Aliases.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition	2	3	66.6
subroutine	10	10	100.0
pod	4	4	100.0
total	41	42	97.6

package Mail::SimpleList::Aliases;

use strict;
use warnings;

use parent 'Mail::Action::Storage';

use File::Spec;
use Mail::SimpleList::Alias;

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

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__