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 |
106 |
sub collection_table { 'users' } |
9 |
dpavlin |
4 |
|
10 |
dpavlin |
106 |
my $users_table = Strix::Schema->Schema()->table( collection_table ); |
11 |
|
|
|
12 |
dpavlin |
57 |
has_table( $users_table ); |
13 |
|
|
|
14 |
|
|
my $select = |
15 |
|
|
Strix::Schema->SQLFactoryClass()->new_select() |
16 |
|
|
->select( $users_table ) |
17 |
|
|
->from( $users_table ) |
18 |
|
|
# ->where( $users_table->column('parent_message_id'), '=', Fey::Placeholder->new() ) |
19 |
dpavlin |
88 |
->order_by( $users_table->column('id'), 'ASC' ) |
20 |
dpavlin |
81 |
# ->limit(5) |
21 |
dpavlin |
57 |
; |
22 |
|
|
|
23 |
|
|
|
24 |
dpavlin |
106 |
has_many 'foobar' => ( |
25 |
dpavlin |
57 |
table => $users_table, |
26 |
|
|
select => $select, |
27 |
|
|
# bind_params => sub { $_[0]->message_id() }, |
28 |
|
|
); |
29 |
|
|
|
30 |
dpavlin |
61 |
#warn dump( map { $_->name } $users_table->columns ); |
31 |
|
|
|
32 |
dpavlin |
106 |
with 'Frey::Collection'; |
33 |
|
|
|
34 |
dpavlin |
4 |
1; |