File Coverage

blib/lib/Mail/Action/Address.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	12	12	100.0
condition			n/a
subroutine	8	8	100.0
pod	4	4	100.0
total	55	55	100.0

package Mail::Action::Address;

use strict;
use warnings;

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

use Class::Roles multi =>
{
    address_expires    => [qw( expires process_time )],
    address_named      => [qw( name )],
    address_described  => [qw( description )],
};

sub description
{
    my $self             = shift;
    $self->{description} = shift if @_;

    return '' unless exists $self->{description};
    return                  $self->{description};
}

sub name
{
    my $self       = shift;
    ($self->{name} = shift) =~ tr/-A-Za-z0-9_//cd if @_;
    return $self->{name};
}

sub expires
{
    my $self = shift;
    $self->{expires} = $self->process_time( shift ) + time() if @_;
    $self->{expires} = 0 unless $self->{expires};
    return $self->{expires};
}

sub process_time
{
    my ($self, $time) = @_;
    return $time unless $time =~ tr/0-9//c;

    my %times = (
        m =>                60,
        h =>           60 * 60,
        d =>      24 * 60 * 60,
        w =>  7 * 24 * 60 * 60,
        M => 30 * 24 * 60 * 60,
    );

    my $units    = join('', keys %times);
    my $seconds;

    while ( $time =~ s/(\d+)([$units])// )
    {
        $seconds += $1 * $times{ $2 };
    }

    return $seconds;
}

1;
__END__