NAME
    Email::Date - Find and Format Date Headers

SYNOPSIS
      use Email::Date;
  
      my $email = join '', <>;
      my $date  = find_date($email);
      print $date->ymd;
  
      my $header = format_date($date->epoch);
  
      Email::Simple->create(
          header => [
              Date => $header,
          ],
          body => '...',
      );

DESCRIPTION
    RFC 2822 defines the "Date:" header. It declares the header a required
    part of an email message. The syntax for date headers is clearly laid
    out. Stil, even a perfectly planned world has storms. The truth is, many
    programs get it wrong. Very wrong. Or, they don't include a "Date:"
    header at all. This often forces you to look elsewhere for the date, and
    hoping to find something.

    For this reason, the tedious process of looking for a valid date has
    been encapsulated in this software. Further, the process of creating RFC
    compliant date strings is also found in this software.

  Functions
    find_date
          my $time_piece = find_date $email;

        "find_date" accepts an email message in any format Email::Abstract
        can understand. It looks through the email message and finds a date,
        converting it to a Time::Piece object.

    format_date
          my $date = format_date; # now
          my $date = format_date( time - 60*60 ); # one hour ago

        "format_date" accepts an epoch value, such as the one returned by
        "time". It returns a string representing the date and time of the
        input, as specified in RFC 2822. If no input value is provided, the
        current value of "time" is used.

SEE ALSO
    Email::Abstract, Time::Piece, Date::Parse, perl.

AUTHOR
    Casey West, <casey@geeknest.com>.

COPYRIGHT
      Copyright (c) 2004 Casey West.  All rights reserved.
      This module is free software; you can redistribute it and/or modify it
      under the same terms as Perl itself.