Automatically generated by Pod::Man 2.27 (Pod::Simple 3.28) Standard preamble: ========================================================================
NAMEEmail::Date - Find and Format Date Headers
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 => '...', );
DESCRIPTIONAchtung! Probably you'll be find just using Email::Date::Format to produce dates or Date::Parse to parse dates. This module isn't much needed anymore, but does provide "find_date", described below.
For this reason, the tedious process of looking for a valid date has been encapsulated in this software. Further, the process of creating
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.
If it can't find a date, it returns false.
"find_date" is exported by default.
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
"format_date" is exported by default.
my $date = format_gmdate;
"format_gmdate" is identical to "format_date", but it will return a string indicating the time in Greenwich Mean Time, rather than local time.
"format_gmdate" is exported on demand, but not by default.
- Casey West
COPYRIGHT AND LICENSEThis software is copyright (c) 2004 by Casey West.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.