prototype of Template::Declare and Markapl

prototype.pl

#!/usr/bin/env perl

use Data::Dumper;
use 5.010;

BEGIN {
  for my $tag (qw(html body table)) {
    eval qq{
      sub $tag (&) {
        "<$tag>" . shift->() . "</$tag>";
      }
    }
  }
}

say html {
  body {
    table {
      my @list = qw(hello world);
      "@list";
    }
  }
}