lib/Blog/Model/Comment.pm

   1 package Blog::Model::Comment;
   2
   3 use strict;
   4
   5 use base qw/ Blog::RDBO /;
   6
   7 __PACKAGE__->config( name => 'Blog::RDBO::Comment' );
   8
   9 sub list {
  10     my $self = shift;
  11     my %args = %{ $_[ 0 ] };
  12
  13     return $self->manager->get_list( %args );
  14 }
  15
  16 =head1 AUTHOR
  17
  18 vti
  19
  20 =head1 LICENSE
  21
  22 This library is free software, you can redistribute it and/or modify
  23 it under the same terms as Perl itself.
  24
  25 =cut
  26
  27 1;