13 |
use XML::Feed; |
use XML::Feed; |
14 |
use LWP::UserAgent; |
use LWP::UserAgent; |
15 |
|
|
|
use Grep::Search; |
|
16 |
use Grep::Source; |
use Grep::Source; |
17 |
|
|
18 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
32 |
my $feeds = Grep::Model::FeedCollection->new; |
my $feeds = Grep::Model::FeedCollection->new; |
33 |
$feeds->order_by({ column => 'title', order => 'ASC' }); |
$feeds->order_by({ column => 'title', order => 'ASC' }); |
34 |
$feeds->unlimit; |
$feeds->unlimit; |
35 |
warn "feeds ", $feeds->build_select_query; |
#warn "feeds ", $feeds->build_select_query; |
36 |
[{ |
[{ |
37 |
display_from => 'title', |
display_from => 'title', |
38 |
value_from => 'id', |
value_from => 'id', |