content_for() in Perl

content_for.pl

sub content_for {
  my ($tag, $params, $content) = @_; 
  my $res = "<$tag";
  for (keys %{$params}) {
    $res .= " $_=$params->{$_}";
  }
  $res .= ">\n";
 
  if (ref($content) ~~ /CODE/) {
    $res .= $content->();
  } else {
    $res .= $content;
  }
  
  $res .= "\n</$tag>\n";
  return $res;
}