lib/Reblog/Feeds.pm

package Reblog::Feeds;

use strict;
use warnings;

use Reblog::Schema;
use Fey::ORM::Table;

use Data::Dump qw/dump/;

my $schema = Reblog::Schema->Schema;

sub collection_table { 'feeds' };
my $feeds_table = $schema->table( collection_table );
has_table( $feeds_table );
with 'Frey::Collection';

my $items_t = $schema->table( 'items' );

=for buggy
my $select_items = Reblog::Schema->Schema->SQLFactoryCrass()->new_select
                ->select( $items_t )
                ->from( $items_t )
                ->where( $items_t->column('feed_id'), '=', Fey::Placeholder->new() )
#               ->order_by( $items_t->column('id'), 'ASC' )
                ->limit(5)
        ;

has_many 'items' => (
        isa => 'Reblog::Items',
        select => $select_items,
        bind_params => sub { $_[0]->id() },
);

=cut

has_many 'items' => ( table => $items_t );

#warn dump( map { $_->name } $users_table->columns );

1;
1	package Reblog::Feeds;
2
3	use strict;
4	use warnings;
5
6	use Reblog::Schema;
7	use Fey::ORM::Table;
8
9	use Data::Dump qw/dump/;
10
11	my $schema = Reblog::Schema->Schema;
12
13	sub collection_table { 'feeds' };
14	my $feeds_table = $schema->table( collection_table );
15	has_table( $feeds_table );
16	with 'Frey::Collection';
17
18	my $items_t = $schema->table( 'items' );
19
20	=for buggy
21	my $select_items = Reblog::Schema->Schema->SQLFactoryCrass()->new_select
22	->select( $items_t )
23	->from( $items_t )
24	->where( $items_t->column('feed_id'), '=', Fey::Placeholder->new() )
25	# ->order_by( $items_t->column('id'), 'ASC' )
26	->limit(5)
27	;
28
29	has_many 'items' => (
30	isa => 'Reblog::Items',
31	select => $select_items,
32	bind_params => sub { $_[0]->id() },
33	);
34
35	=cut
36
37	has_many 'items' => ( table => $items_t );
38
39	#warn dump( map { $_->name } $users_table->columns );
40
41	1;