SL/Controller/Helper/GetModels/Base.pm

   1 package SL::Controller::Helper::GetModels::Base;
   2
   3 use strict;
   4 use parent 'Rose::Object';
   5 use Scalar::Util qw(weaken);
   6
   7
   8 use Rose::Object::MakeMethods::Generic (
   9   scalar => [ qw(get_models) ],
  10 );
  11
  12 sub set_get_models {
  13   $_[0]->get_models($_[1]);
  14
  15   weaken($_[1]);
  16 }
  17
  18 sub merge_args {
  19   my ($self, @args) = @_;
  20   my $final_args = { };
  21
  22   for my $field (qw(query with_objects)) {
  23     $final_args->{$field} = [ map { @{ $_->{$field} || [] } } @args ];
  24   }
  25
  26   return %$final_args;
  27 }
  28
  29 1;