loop helper

loop.pl

use Mojolicious::Lite;

use Mojo::Collection 'c';

helper loop => sub {
  my ($c, $aref, $block) = @_;
  $aref = ($c->stash($aref) || []) unless ref $aref;
  c(@$aref)->map($block)->join;
};


any '/' => 'index';

app->start;

__DATA__

@@ index.html.ep

%= loop [qw/a b c/] => begin
  From array ref: <%= $_ %>
% end

% stash x => [qw/d e f/];

%= loop x => begin
  From stash 'x': <%= $_ %>
% end