SL/Presenter/ItemsList.pm

   1 package SL::Presenter::ItemsList;
   2
   3 use strict;
   4
   5 use File::Spec;
   6
   7 use SL::Presenter;
   8
   9 use Exporter qw(import);
  10 our @EXPORT_OK = qw(items_list);
  11
  12 sub items_list {
  13   my ($items, %params) = @_;
  14
  15   my $text_mode = !!delete $params{as_text};
  16
  17   my $output = SL::Presenter->get->render('presenter/items_list/items_list', { type => $text_mode ? 'text' : 'html' }, %params, items => $items);
  18
  19   $output =~ s{\n$}{}x if $text_mode;
  20
  21   return $output;
  22 }