blob: ca38efdf92375a306d1c6d4b271b788aa52d1cad (
plain)
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
|
package Feed::Role::FixDateTime; use Moose::Role; use 5.012; use namespace::autoclean; use DateTime; requires 'process_entry'; before process_entry => sub { my ($self,$entry) = @_; $self->log->trace('before process_entry - begin'); for my $f ('issued','modified') { my $date = $entry->$f; if ($date && $date->time_zone->is_floating) { $date->set_time_zone('UTC'); $entry->$f($date); } } $self->log->trace('before process_entry - end'); }; 1;
|