Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Perl HTML template design scenarios

by Your Mother (Archbishop)
on May 16, 2016 at 14:46 UTC ( #1163138=note: print w/replies, xml ) Need Help??


in reply to Perl HTML template design scenarios

#!/usr/bin/env perl use strictures; use Text::Xslate; use Data::Section::Simple; my $vpath = Data::Section::Simple->new()->get_data_section(); my $tx = Text::Xslate->new( path => [ $vpath ] ); my @moos = join("", "A".."L") =~ /\w\w\w/g; print $tx->render("base.tx", { moos => rand(1) > .5 ? \@moos : [] }); __DATA__ @@ base.tx <!doctype html> <html lang="kitteh"> <head> <title>OHAI</tile> </head> <body> <h1>MOOS</h1> : if ! $moos.0 { <blockquote>OHNOES</blockquote> : } : for $moos -> $moo { <p><: $moo :></p> : } </body> </html>

PM may not be a code writing service but it is a Your Mother amusement parlor at times. I am not recommending that code. Just messing around. :P See also: Text::Xslate, Template::Toolkit, Template::Alloy, Mojolicious, HTML::Template, et cetera.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1163138]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (3)
As of 2022-08-13 19:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?