lib/Strix/Anketa.pm

package Strix::Anketa;

use warnings;
use strict;

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

with 'Frey::Collection';

use Data::Dump qw/dump/;

sub collection_table { 'anketa' }

sub t {
        my $table = shift;
        warn "## table $table\n";
        return Strix::Schema->Schema()->table( $table ) || die "can't find $table";
}

my $anketa = Strix::Schema->Schema()->table( collection_table );

has_table( $anketa );

my $anketa_pitanja = Strix::Schema->Schema()->table( 'anketa_pitanja' ) or die;

my $pitanja =
        Strix::Schema->SQLFactoryClass()->new_select()
                ->select( $anketa_pitanja )
                ->from( $anketa_pitanja )
                ->where( $anketa_pitanja->column('anketa_id'), '=', Fey::Placeholder->new() )
                ->order_by( $anketa_pitanja->column('orders'), 'ASC' )
#               ->limit(5)
        ;


my $fk = Fey::FK->new(
        source_columns => [ t('anketa')->column('id') ],
        target_columns => [ t('anketa_pitanja')->column('anketa_id') ],
);


has_many 'pitanja' => (
        table => Strix::Schema->Schema()->table( 'anketa_pitanja' ),
        fk => $fk,
#       select => $pitanja,
#       bind_params => sub { $_[0]->id() },
);

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

package Strix::Anketa::Pitanja;

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

with 'Frey::Collection';
sub collection_table { 'anketa_pitanja' }
my $table = Strix::Schema->Schema()->table( collection_table );
has_table( $table );

1;
1	package Strix::Anketa;
2
3	use warnings;
4	use strict;
5
6	use Strix::Schema;
7	use Fey::ORM::Table;
8
9	with 'Frey::Collection';
10
11	use Data::Dump qw/dump/;
12
13	sub collection_table { 'anketa' }
14
15	sub t {
16	my $table = shift;
17	warn "## table $table\n";
18	return Strix::Schema->Schema()->table( $table ) \|\| die "can't find $table";
19	}
20
21	my $anketa = Strix::Schema->Schema()->table( collection_table );
22
23	has_table( $anketa );
24
25	my $anketa_pitanja = Strix::Schema->Schema()->table( 'anketa_pitanja' ) or die;
26
27	my $pitanja =
28	Strix::Schema->SQLFactoryClass()->new_select()
29	->select( $anketa_pitanja )
30	->from( $anketa_pitanja )
31	->where( $anketa_pitanja->column('anketa_id'), '=', Fey::Placeholder->new() )
32	->order_by( $anketa_pitanja->column('orders'), 'ASC' )
33	# ->limit(5)
34	;
35
36
37	my $fk = Fey::FK->new(
38	source_columns => [ t('anketa')->column('id') ],
39	target_columns => [ t('anketa_pitanja')->column('anketa_id') ],
40	);
41
42
43	has_many 'pitanja' => (
44	table => Strix::Schema->Schema()->table( 'anketa_pitanja' ),
45	fk => $fk,
46	# select => $pitanja,
47	# bind_params => sub { $_[0]->id() },
48	);
49
50	#warn dump( map { $_->name } $anketa->columns );
51
52	package Strix::Anketa::Pitanja;
53
54	use Strix::Schema;
55	use Fey::ORM::Table;
56
57	with 'Frey::Collection';
58	sub collection_table { 'anketa_pitanja' }
59	my $table = Strix::Schema->Schema()->table( collection_table );
60	has_table( $table );
61
62	1;