5 |
|
|
6 |
package Grep::Source::Feed; |
package Grep::Source::Feed; |
7 |
|
|
8 |
|
use base 'Jifty::Object'; |
9 |
|
|
10 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
11 |
|
|
12 |
=head2 fetch |
=head2 fetch |
36 |
my $xml_feed = XML::Feed->parse( \$content ) |
my $xml_feed = XML::Feed->parse( \$content ) |
37 |
or die $feed->title, " returned ", XML::Feed->errstr, "\n"; |
or die $feed->title, " returned ", XML::Feed->errstr, "\n"; |
38 |
|
|
39 |
warn "getting entries from ", $xml_feed->title, "\n"; |
$self->log->debug("getting entries from ", $xml_feed->title); |
40 |
|
|
41 |
for my $entry ($xml_feed->entries) { |
for my $entry ($xml_feed->entries) { |
42 |
|
|