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 use Rose::Object::MakeMethods::Generic (
   8   scalar => [ qw(get_models disabled finalized) ],
   9 );
  10
  11 # phase stubs
  12 sub read_params { die 'implement me' }
  13
  14 sub finalize { die 'implement me' }
  15
  16 sub set_get_models {
  17   $_[0]->get_models($_[1]);
  18
  19   weaken($_[1]);
  20 }
  21
  22 sub merge_args {
  23   my ($self, @args) = @_;
  24   my $final_args = { };
  25
  26   for my $field (qw(query with_objects)) {
  27     $final_args->{$field} = [ map { @{ $_->{$field} || [] } } @args ];
  28   }
  29
  30   for my $field (qw(page per_page sort_by)) {
  31     for my $arg (@args) {
  32       next unless defined $arg->{$field};
  33       $final_args->{$field} //= $arg->{$field};
  34     }
  35   }
  36
  37   return %$final_args;
  38 }
  39
  40 sub is_enabled {
  41   my ($self) = @_;
  42   return !$self->disabled;
  43 }
  44
  45 1;