3 |
use strict; |
use strict; |
4 |
use warnings; |
use warnings; |
5 |
|
|
6 |
use Reblog::Schema; |
use base 'DBIx::Class'; |
|
use Fey::ORM::Table; |
|
7 |
|
|
8 |
use Data::Dump qw/dump/; |
__PACKAGE__->load_components("Core"); |
9 |
|
__PACKAGE__->table("feeds"); |
10 |
my $schema = Reblog::Schema->Schema; |
__PACKAGE__->add_columns( |
11 |
|
"id", |
12 |
sub collection_table { 'feeds' }; |
{ data_type => "INT", default_value => undef, is_nullable => 0, size => 10 }, |
13 |
my $feeds_table = $schema->table( collection_table ); |
"url", |
14 |
has_table( $feeds_table ); |
{ |
15 |
with 'Frey::ORM::Collection'; |
data_type => "TEXT", |
16 |
|
default_value => undef, |
17 |
my $items_t = $schema->table( 'items' ); |
is_nullable => 0, |
18 |
|
size => 65535, |
19 |
=for buggy |
}, |
20 |
my $select_items = Reblog::Schema->Schema->SQLFactoryCrass()->new_select |
"title", |
21 |
->select( $items_t ) |
{ data_type => "VARCHAR", default_value => "", is_nullable => 0, size => 255 }, |
22 |
->from( $items_t ) |
"link", |
23 |
->where( $items_t->column('feed_id'), '=', Fey::Placeholder->new() ) |
{ |
24 |
# ->order_by( $items_t->column('id'), 'ASC' ) |
data_type => "VARCHAR", |
25 |
->limit(5) |
default_value => undef, |
26 |
; |
is_nullable => 1, |
27 |
|
size => 255, |
28 |
has_many 'items' => ( |
}, |
29 |
isa => 'Reblog::Items', |
"description", |
30 |
select => $select_items, |
{ |
31 |
bind_params => sub { $_[0]->id() }, |
data_type => "VARCHAR", |
32 |
|
default_value => undef, |
33 |
|
is_nullable => 1, |
34 |
|
size => 255, |
35 |
|
}, |
36 |
|
"xml", |
37 |
|
{ |
38 |
|
data_type => "TEXT", |
39 |
|
default_value => undef, |
40 |
|
is_nullable => 1, |
41 |
|
size => 65535, |
42 |
|
}, |
43 |
|
"timestamp", |
44 |
|
{ |
45 |
|
data_type => "TIMESTAMP", |
46 |
|
default_value => "CURRENT_TIMESTAMP", |
47 |
|
is_nullable => 0, |
48 |
|
size => 14, |
49 |
|
}, |
50 |
|
"insert_timestamp", |
51 |
|
{ |
52 |
|
data_type => "TIMESTAMP", |
53 |
|
default_value => "0000-00-00 00:00:00", |
54 |
|
is_nullable => 0, |
55 |
|
size => 14, |
56 |
|
}, |
57 |
); |
); |
58 |
|
__PACKAGE__->set_primary_key("id"); |
59 |
|
|
|
=cut |
|
60 |
|
|
61 |
has_many 'items' => ( table => $items_t ); |
# Created by DBIx::Class::Schema::Loader v0.04005 @ 2009-01-24 17:48:45 |
62 |
|
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Tv+IMxgng1+BpjFN0Zc8bw |
63 |
|
|
|
#warn dump( map { $_->name } $users_table->columns ); |
|
64 |
|
|
65 |
|
# You can replace this text with custom content, and it will be preserved on regeneration |
66 |
1; |
1; |