Hi Ashley,
my $t = sub { my $n = shift; @_ ? join("\n","<$n>",@_,"</$n>") : () ) }
my $e = sub { HTML::Entities::encode($_) };
return $t->( ul => map { $t->( li =>
$t->( b => &$e ),
$t->( ul => map { $t->( li => &$e ) } $c->req->param($_) ),
) } $c->req->param );
Untested. But it least it doesn’t look half like Java.
--
*AUTOLOAD=*_;sub _{s/(.*)::(.*)/print$2,(",$\/"," ")[defined wantarray]/e;$1}
&Just->another->Perl->hack;
#Aristotle Pagaltzis // <http://plasmasturm.org/>
_______________________________________________
List: [email protected]
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[email protected]/
Dev site: http://dev.catalyst.perl.org/
