lib/Blog/RDBO/Page.pm

   1 package Blog::RDBO::Page;
   2
   3 use strict;
   4
   5 use base qw(Blog::DB::Object::I18N::Static);
   6
   7 __PACKAGE__->meta->setup(
   8     table => 'page',
   9
  10     columns => [
  11         qw/ id key orig_lang /,
  12         rank => { default => 0 },
  13         addtime => { type => 'epoch', default => 'now' },
  14         modtime => { type => 'epoch', default => 'now'}
  15     ],
  16
  17     primary_key_columns => [ qw/ id / ],
  18
  19     unique_key => [ qw/ key / ],
  20
  21     relationships => [
  22         page_i18n => {
  23             type       => 'one to many',
  24             class      => 'Blog::RDBO::PageI18N',
  25             column_map => { id => 'page_id' }
  26         }
  27     ]
  28 );
  29
  30 __PACKAGE__->utf8_columns( qw/ key / );
  31
  32 __PACKAGE__->meta->column( 'modtime' )->add_trigger(
  33     event => 'on_save',
  34     code  => sub {
  35         my $self  = shift;
  36         my $value = $self->modtime;
  37
  38         $self->modtime( time );
  39
  40     }
  41 );
  42
  43 =head1 AUTHOR
  44
  45 vti
  46
  47 =head1 LICENSE
  48
  49 This library is free software, you can redistribute it and/or modify
  50 it under the same terms as Perl itself.
  51
  52 =cut
  53
  54 1;