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

   1 package Common::RDBO::Helper::Std;
   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 / ] );
  10
  11 sub master {
  12     my $self = shift;
  13
  14     if ( $self->can( 'type' ) ) {
  15         my $type = $self->type;
  16         return $self->$type;
  17     } else {
  18         my ( $rel ) =
  19           grep { $_->type eq 'many to one' } $self->meta->relationships;
  20         die $rel->name;
  21
  22         my $master = $rel->name;
  23
  24         return $self->$master;
  25     }
  26 }
  27
  28 =head1 AUTHOR
  29
  30 vti
  31
  32 =head1 LICENSE
  33
  34 This library is free software, you can redistribute it and/or modify
  35 it under the same terms as Perl itself.
  36
  37 =cut
  38
  39 1;