projekt kivitendo

  $specs{MODEL}             =~ s{ ^ SL::DB:: (?: .* :: )? }{}x;

  $specs{PER_PAGE}        ||= "SL::DB::Manager::$specs{MODEL}"->default_objects_per_page;

  $specs{FORM_PARAMS}     ||= [ qw(page per_page) ];

  $specs{ONLY}            ||= [];

  $specs{ONLY}              = [ $specs{ONLY} ] if !ref $specs{ONLY};

  $specs{ONLY_MAP}          = @{ $specs{ONLY} } ? { map { ($_ => 1) } @{ $specs{ONLY} } } : { '__ALL__' => 1 };

  );

  my %paginate_args     = ref($spec->{PAGINATE_ARGS}) eq 'CODE' ? %{ $spec->{PAGINATE_ARGS}->($self) }

                        :     $spec->{PAGINATE_ARGS}            ? do { my $sub = $spec->{PAGINATE_ARGS}; %{ $self->$sub() } }

                        :                                         ();

  my $calculated_params = "SL::DB::Manager::$spec->{MODEL}"->paginate(%paginate_params, args => \%paginate_args);