11 |
#with 'Frey::Storage'; |
#with 'Frey::Storage'; |
12 |
|
|
13 |
use XML::Simple; |
use XML::Simple; |
14 |
|
use DateTimeX::Easy; |
15 |
|
|
16 |
has repository => ( |
has repository => ( |
17 |
is => 'rw', |
is => 'rw', |
163 |
my $e = shift; |
my $e = shift; |
164 |
|
|
165 |
my $rev = $e->{'revision'}; |
my $rev = $e->{'revision'}; |
166 |
my $date = $e->{'date'}; |
my $date = DateTimeX::Easy->new( $e->{'date'} )->epoch . '000'; # ms |
167 |
my $author = $e->{'author'}; |
my $author = $e->{'author'}; |
168 |
|
|
169 |
foreach my $p (@{$e->{'paths'}->{'path'}}) { |
foreach my $p (@{$e->{'paths'}->{'path'}}) { |