Parent Directory | Revision Log
return feed as sponge
1 | package Frey::Feed::Sponge; |
2 | use Moose; |
3 | |
4 | extends 'Frey::Feed'; |
5 | with 'Frey::Web'; |
6 | #with 'Frey::Storage'; |
7 | |
8 | sub as_sponge { |
9 | my ($self) = @_; |
10 | |
11 | my @rows; |
12 | |
13 | foreach my $entry ( $self->entries ) { |
14 | my @row; |
15 | push @row, $entry->$_ foreach ( qw/pubDate title link description/ ); |
16 | push @rows, [ @row ]; |
17 | } |
18 | |
19 | return { |
20 | rows => \@rows, |
21 | NAME => [ qw/date title link description/ ], |
22 | }; |
23 | } |
24 | |
25 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |