1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
package XML::Feed::Util;
use strict;
use warnings;
our $VERSION = '0.59';
use base qw( Exporter );
use DateTime::Format::Flexible;
use DateTime::Format::ISO8601;
use DateTime::Format::Natural;
use DateTime::Format::W3CDTF;
our @EXPORT_OK = qw(
format_w3cdtf
parse_datetime
parse_w3cdtf_date
parse_mail_date
);
sub format_w3cdtf {
my $date = DateTime::Format::W3CDTF->format_datetime(shift);
# Add timezone "Z" if "floating" DateTime.
$date =~ s/(:\d\d(?:\.\d+)?)\s*$/$1Z/;
return $date;
}
sub parse_datetime {
my $ts = shift or return undef;
$ts = _strip_spaces($ts);
return eval { DateTime::Format::ISO8601->parse_datetime($ts) }
|| eval { DateTime::Format::Flexible->parse_datetime($ts) }
|| do {
my $p = DateTime::Format::Natural->new;
my $dt = $p->parse_datetime($ts);
$p->success ? $dt : undef;
};
};
sub parse_mail_date {
my $ts = shift or return undef;
$ts = _strip_spaces($ts);
return eval { DateTime::Format::Mail(loose => 1)->parse_datetime($ts) }
|| parse_datetime($ts);
};
sub parse_w3cdtf_date {
my $ts = shift or return undef;
$ts = _strip_spaces($ts);
return eval { DateTime::Format::W3CDTF->parse_datetime($ts) }
|| parse_datetime($ts);
};
sub _strip_spaces {
local $_ = shift;
s/^\s+//, s/\s+$// if $_;
return $_;
}
1;
__END__
=head1 NAME
XML::Feed::Util - Utility functions
=head1 SYNOPSIS
use XML::Feed::Util qw(
format_w3cdtf
parse_datetime
parse_mail_date
parse_w3cdtf_date
);
use DateTime;
print format_w3cdtf(DateTime->now);
my $dt;
$dt = parse_datetime('January 8, 1999');
$dt = parse_mail_date('Fri, 23 Nov 2001 21:57:24 -0600');
$dt = parse_w3cdtf_date('2003-02-15T13:50:05-05:00');
=head1 DESCRIPTION
Common utility or helper functions.
=head1 USAGE
=head2 format_w3cdtf($datetime)
Convert DateTime object to W3CDTF format string.
Uses default timezone "Z" for "floating" DateTime.
=head2 parse_datetime($date)
Parse any date string using L<DateTime::Format::ISO8601>,
L<DateTime::Format::Flexible> or L<DateTime::Format::Natural>.
Returns DateTime object or undef.
=head2 parse_mail_date($date)
Parse date in RFC2822/822 format using L<DateTime::Format::Mail>.
Fallback to C<parse_datetime()> for other formats.
Returns DateTime object or undef.
=head2 parse_w3cdtf_date($date)
Parse date W3CDTF format using L<DateTime::Format::W3CDTF>.
Fallback to C<parse_datetime()> for other formats.
Returns DateTime object or undef.
=head1 AUTHOR & COPYRIGHT
Please see the I<XML::Feed> manpage for author, copyright, and license
information.
=cut
|
