lib/Crawl/Bot/Role/RSS.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

package Crawl::Bot::Role::RSS;
use Moose::Role;

use XML::RAI;

with 'Crawl::Bot::Role::CachedItems';

requires 'rss_feed';

sub current_items {
    my $self = shift;
    my $rss = XML::RAI->parse_uri($self->rss_feed);
    return @{ $rss->items };
}

no Moose::Role;

1;