lib/Strix/User.pm

package Strix::User;

use Strix::Schema;
use Fey::ORM::Table;

use Data::Dump qw/dump/;

my $users_table = Strix::Schema->Schema()->table('users');

has_table( $users_table );

my $select =
        Strix::Schema->SQLFactoryClass()->new_select()
                ->select( $users_table )
                ->from( $users_table )
#               ->where( $users_table->column('parent_message_id'), '=', Fey::Placeholder->new() )
                ->order_by( $users_table->column('id'), 'ASC' )
#               ->limit(5)
        ;


has_many 'rows' => (
        table => $users_table,
        select => $select,
#       bind_params => sub { $_[0]->message_id() },
);

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

1;
1	dpavlin	2	package Strix::User;
2
3			use Strix::Schema;
4			use Fey::ORM::Table;
5
6	dpavlin	4	use Data::Dump qw/dump/;
7	dpavlin	2
8	dpavlin	57	my $users_table = Strix::Schema->Schema()->table('users');
9	dpavlin	4
10	dpavlin	57	has_table( $users_table );
11
12			my $select =
13			Strix::Schema->SQLFactoryClass()->new_select()
14			->select( $users_table )
15			->from( $users_table )
16			# ->where( $users_table->column('parent_message_id'), '=', Fey::Placeholder->new() )
17	dpavlin	88	->order_by( $users_table->column('id'), 'ASC' )
18	dpavlin	81	# ->limit(5)
19	dpavlin	57	;
20
21
22			has_many 'rows' => (
23			table => $users_table,
24			select => $select,
25			# bind_params => sub { $_[0]->message_id() },
26			);
27
28	dpavlin	61	#warn dump( map { $_->name } $users_table->columns );
29
30	dpavlin	4	1;