1.9: Actual Template::Simple Generated Code
no warnings ;
sub {
my( $data ) = @_ ;
my $out ;
use Scalar::Util qw( reftype ) ;
my @data = $data ;
while( @data ) {
my $data = shift @data ;
if ( reftype $data eq 'ARRAY' ) {
push @data, @{$data} ;
next ;
}
$out .= reftype $data ne 'HASH' ? $data :
"<html>\n <head><title>"
.
$data->{title}
.
"</title></head>\n <body>\n <ul>" ;
my @data = $data->{posts} ;
while( @data ) {
my $data = shift @data ;
if ( reftype $data eq 'ARRAY' ) {
push @data, @{$data} ;
next ;
}
$out .= reftype $data ne 'HASH' ? $data :
"\n <li>\n <h3>"
.
$data->{title}
.
"</h3>\n <span>"
.
$data->{date}
.
"</span>\n </li>" ;
}
$out .= reftype $data ne 'HASH' ? $data :
"\n </ul>\n </body>\n</html>\n" ;
}
return \$out ;
}