lib/Blog/RDBO/Post/Manager.pm

   1 package Blog::RDBO::Post::Manager;
   2
   3 use strict;
   4
   5 use base 'Rose::DB::Object::I18N::Manager';
   6
   7 use Hash::Merge 'merge';
   8 use Common::RDBO::Helper::Post::Manager qw(:all);
   9
  10 sub object_class { 'Blog::RDBO::Post' }
  11
  12 __PACKAGE__->make_manager_methods( 'posts');
  13
  14 sub feed {
  15     my ( $self ) = @_;
  16
  17     return $self->get_posts(
  18         i18n => Blog->context->language,
  19         sort_by  => 'addtime DESC',
  20         limit    => 20,
  21         group_by => 't1.id'
  22     );
  23 }
  24
  25 sub list {
  26     my ( $self ) = shift;
  27     my %args = @_;
  28
  29     my $cond = merge {
  30         sort_by => 'addtime DESC', }, \%args;
  31
  32     return $self->get_list( %$cond );
  33 }
  34
  35 sub archive {
  36     my $self = shift;
  37     my ( $year, $month, $day ) = @_;
  38
  39     return $self->get_archive(
  40         year => $year,
  41         month => $month,
  42         day => $day
  43     );
  44 }
  45
  46 sub recent {
  47     my ( $self, $limit ) = @_;
  48
  49     return $self->get_posts(
  50         i18n => Blog->context->language,
  51         select  => [ qw/ id key orig_lang t2.i18nid t2.lang t2.istran t2.title / ],
  52         sort_by => 'addtime DESC',
  53         limit   => $limit || 10
  54     );
  55 }
  56
  57 sub newer {
  58     my ( $self, $addtime ) = @_;
  59
  60     return $self->get_newer(
  61         addtime => $addtime,
  62         select =>
  63           [ qw/ id key orig_lang t2.i18nid t2.lang t2.istran t2.title / ],
  64     );
  65 }
  66
  67 sub older {
  68     my ( $self, $addtime ) = @_;
  69
  70     return $self->get_older(
  71         addtime => $addtime,
  72         select =>
  73           [ qw/ id key orig_lang t2.i18nid t2.lang t2.istran t2.title / ],
  74     );
  75 }
  76
  77 =head1 AUTHOR
  78
  79 vti
  80
  81 =head1 LICENSE
  82
  83 This library is free software, you can redistribute it and/or modify
  84 it under the same terms as Perl itself.
  85
  86 =cut
  87
  88 1;