lib/Blog/RDBO/Comment/Manager.pm

   1 package Blog::RDBO::Comment::Manager;
   2
   3 use strict;
   4
   5 use base 'Rose::DB::Object::Manager';
   6
   7 use Blog::RDBO::Comment;
   8
   9 sub object_class { 'Blog::RDBO::Comment' }
  10
  11 __PACKAGE__->make_manager_methods( 'comments');
  12
  13 use Common::RDBO::Helper::Comment::Manager ':all';
  14
  15 sub recent {
  16     my $self = shift;
  17     my ( $limit ) = @_;
  18
  19     my $c = Blog->context;
  20
  21     return $self->get_recent(
  22         query => [ 't3.lang' => $c->language ],
  23         select  => [ qw/ id post_id t2.id t2.key t3.i18nid content / ],
  24         limit   => $limit,
  25         require_objects => [ 'post.post_i18n' ]
  26     );
  27 }
  28
  29 =head1 AUTHOR
  30
  31 vti
  32
  33 =head1 LICENSE
  34
  35 This library is free software, you can redistribute it and/or modify
  36 it under the same terms as Perl itself.
  37
  38 =cut
  39
  40 1;