Frey/Feed/Sponge.pm

package Frey::Feed::Sponge;
use Moose;

extends 'Frey::Feed';
with 'Frey::Web';
#with 'Frey::Storage';

sub as_sponge {
        my ($self) = @_;

        my @rows;

        foreach my $entry ( $self->entries ) {
                my @row;
                push @row, $entry->$_ foreach ( qw/pubDate title link description/ );
                push @rows, [ @row ];
        }

        return {
                rows => \@rows,
                NAME => [ qw/date title link description/ ],
        };
}

1;
1	dpavlin	917	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;