File Coverage

blib/lib/Email/Date.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	4	4	100.0
condition	7	9	77.7
subroutine	9	9	100.0
pod	1	1	100.0
total	50	52	96.1

use strict;
use warnings;
package Email::Date;
{
  $Email::Date::VERSION = '1.104';
}
# ABSTRACT: Find and Format Date Headers

our @EXPORT    = qw[find_date format_date];
our @EXPORT_OK = qw[format_gmdate];

use Exporter 5.57 'import';
use Date::Parse 2.27 ();
use Email::Date::Format 1.000;
use Time::Piece 1.08 ();


sub find_date {
    require Email::Abstract;
    my $email = Email::Abstract->new($_[0]);

    my $date = $email->get_header('Date')
            || _find_date_received($email->get_header('Received'))
            || $email->get_header('Resent-Date');

    return unless $date and length $date;

    Time::Piece->new(Date::Parse::str2time $date);
}

sub _find_date_received {
    return unless defined $_[0] and length $_[0];
    my $date = pop;
    $date =~ s/.+;//;
    $date;
}


BEGIN {
  *format_date   = \&Email::Date::Format::email_date;
  *format_gmdate = \&Email::Date::Format::email_gmdate;
};

1;

__END__