5 |
|
|
6 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
7 |
|
|
8 |
my $table = A3C::Schema->Schema()->table('hr_edu_orgs'); |
sub collection_table { 'hr_edu_orgs' } |
9 |
|
|
10 |
|
my $table = A3C::Schema->Schema()->table( collection_table ); |
11 |
|
|
12 |
has_table( $table ); |
has_table( $table ); |
13 |
|
|
18 |
->limit(10) |
->limit(10) |
19 |
; |
; |
20 |
|
|
21 |
has_many 'rows' => ( |
has_many 'first10' => ( |
22 |
table => $table, |
table => $table, |
23 |
select => $select, |
select => $select, |
24 |
); |
); |
25 |
|
|
26 |
#warn dump( map { $_->name } $users_table->columns ); |
#warn dump( map { $_->name } $users_table->columns ); |
27 |
|
|
28 |
|
with 'Frey::Collection'; |
29 |
|
|
30 |
1; |
1; |