Comment.pm

   1 package Memories::Comment;
   2 use base qw(Memories::DBI);
   3 __PACKAGE__->columns(Essential => qw/id name photo/);
   4 __PACKAGE__->columns(Others => qw/content/);
   5 Memories::Comment->has_a("photo" => "Memories::Photo");
   6
   7 1;