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

   1 package Common::RDBO::Helpers;
   2
   3 use strict;
   4 use warnings;
   5
   6 use Rose::Object::MixIn();
   7 our @ISA = qw(Rose::Object::MixIn);
   8
   9 use Hash::Merge 'merge';
  10
  11 __PACKAGE__->export_tag(
  12     all => [ qw/ get_prev_objects get_next_objects get_master_object / ] );
  13
  14 sub get_prev_objects {
  15     my ( $self ) = shift;
  16     my %args = @_;
  17
  18     my $manager = delete $args{ manager } || $self->meta->class . '::Manager';
  19
  20     my $column = delete $args{ column };
  21     warn 'no column' and return unless $column;
  22
  23     warn 'column does not exist' and return
  24       unless grep { $_ eq $column } @{ $self->meta->column_names };
  25
  26     my $cond = merge {
  27         query   => [ $column => { lt => $self->$column } ],
  28         sort_by => "$column DESC",
  29       },
  30       \%args;
  31
  32     return $manager->get_objects( object_class => $self->meta->class, %$cond );
  33 }
  34
  35 sub get_next_objects {
  36     my ( $self ) = shift;
  37     my %args = @_;
  38
  39     my $manager = delete $args{ manager } || $self->meta->class . '::Manager';
  40
  41     my $column = delete $args{ column };
  42     warn 'no column' and return unless $column;
  43
  44     warn 'column does not exist' and return
  45       unless grep { $_ eq $column } @{ $self->meta->column_names };
  46
  47     my $cond = merge {
  48         query   => [ $column => { gt => $self->$column } ],
  49         sort_by => "$column ASC",
  50       },
  51       \%args;
  52
  53     return $manager->get_objects( object_class => $self->meta->class, %$cond );
  54 }
  55
  56 sub get_master_object {
  57     my $self = shift;
  58
  59     if ( $self->can( 'type' ) ) {
  60         my $type = $self->type;
  61         return $self->$type;
  62     } else {
  63
  64         #my ( $rel ) =
  65         #grep { $_->type eq 'many to one' } $self->meta->relationships;
  66         #die $rel->name;
  67
  68         #my $master = $rel->name;
  69
  70         #return $self->$master;
  71     }
  72 }
  73
  74 1;