gistfile1.pl

for my $method (qw(build_date bought_date)) {
  Sub::Install::install($_ => sub {
    my ($self, $input_arg) = @_;
    return format_string($self->$method);
  });
}


sub apejens {}

*<package>::apejens = \&sub {};


$c->stash(
  dt_formater => DateTime::Format::Natural->new(),
);


[% item.bought.strftime('%y-%m-%d') %]

[% relative_time(item.bought) %]


[% item.description OR 'Default' %]

[% FOR item.stores


for (qw(user_id)) {
  Exception->throw("$_ is not specified") unless ${$_};
}