mason/autohandler, mason/sheet: Don't wrap HTML around dealing sheet.

[bridge-toys] / mason / sheet

<%perl>
$r->content_type("text/plain");
for (my $i = 0; $i < $n; $i++) {
  my @l = Deal::line;
  for (my $j = 0; $j < @l; $j++) {
    $j && $j % $nbox == 0 and $m->out(" ");
    $m->out($l[$j]);
  }
  $m->out("\n");
}
</%perl>
%#
<%once>
use Deal;
</%once>
%#
<%args>
$n => 50
$nbox => 4
</%args>
%#
<%method wrapper><% $m->content %></%method>