Mojolicious text_area change

gistfile1.pl

my ($c, $name) = (shift, shift);
my $cb = sub {''};

if(@_ % 2) {
  if(ref $_[-1] && ref $_[-1] eq 'CODE') {
      $cb = pop;
  }
  else {
      my $value = shift;
      $cb = sub {$value};
  }
}

# Actually, an explicit value given above should override this
if (defined(my $value = $c->param($name))) {
  $cb = sub {$value}
}

return $self->_tag('textarea', name => $name, @_, $cb);