File Coverage

blib/lib/Mail/Action/Storage.pm

Criterion	Covered	Total	%
statement	52	57	91.2
branch	5	10	50.0
condition			n/a
subroutine	16	17	94.1
pod	9	9	100.0
total	82	93	88.1

package Mail::Action::Storage;

use strict;
use warnings;

use vars '$VERSION';
$VERSION = '0.46';

use YAML;

use Carp 'croak';
use Fcntl ':flock';

use File::Spec;

use Mail::Action::Address;

sub new
{
    my ($class, $directory) = @_;
    croak 'No storage directory given' unless $directory;

    bless { storage_dir => $directory }, $class;
}

sub stored_class
{
    '';
}

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

sub storage_extension
{
    'mas'
}

sub storage_file
{
    my ($self, $name) = @_;
    return File::Spec->catfile( $self->storage_dir(),
                                $name . '.' . $self->storage_extension() );
}

sub create
{
}

sub exists
{
    my ($self, $address) = @_;
    return -e $self->storage_file( $address );
}

sub save
{
    my ($self, $stored, $name) = @_;
    my $file = $self->storage_file( $name );
    delete $stored->{name};

    local *OUT;

    if (-e $file)
    {
        open( OUT, '+< ' . $file ) or croak "Cannot save data for '$file': $!";
        flock    OUT, LOCK_EX;
        seek     OUT, 0, 0;
        truncate OUT, 0;
    }
    else
    {
        open( OUT, '> ' . $file ) or croak "Cannot save data for '$file': $!";
    }

    print OUT Dump { %$stored };
}

sub fetch
{
    my ($self, $name) = @_;

    local *IN;
    open(  IN, $self->storage_file( $name ) ) or return;
    flock( IN, LOCK_SH );
    my $data = do { local $/;  };
    close IN;

    return $self->stored_class->new(
        %{ Load( $data ) }, name => $name
    );
}

1;

__END__