Common-RDBO-Helper/lib/Common/RDBO/Helper/Comment.pm

   1 package Common::RDBO::Helper::Comment;
   2
   3 use strict;
   4 use warnings;
   5
   6 use Rose::Object::MixIn();
   7 our @ISA = qw(Rose::Object::MixIn);
   8
   9 __PACKAGE__->export_tag( all => [ qw/ master comment_count / ] );
  10
  11 use Rose::Object::MakeMethods::Generic ( scalar => [ qw/ comment_count / ] );
  12
  13 sub master {
  14     my $self = shift;
  15
  16     if ( $self->can( 'type' ) ) {
  17         my $type = $self->type;
  18         return $self->$type;
  19     } else {
  20         my ( $rel ) =
  21           grep { $_->type eq 'many to one' } $self->meta->relationships;
  22         die $rel->name;
  23
  24         my $master = $rel->name;
  25
  26         return $self->$master;
  27     }
  28 }
  29
  30 =head1 AUTHOR
  31
  32 vti
  33
  34 =head1 LICENSE
  35
  36 This library is free software, you can redistribute it and/or modify
  37 it under the same terms as Perl itself.
  38
  39 =cut
  40
  41 1;