STEVE

#!/usr/bin/perl use strict; use warnings; use Data::Dumper; $Data::Dumper::Indent = 1; $Data::Dumper::Sortkeys = 1; use HTML::Template; # # Load the layout and a stub page of "content" # my $layout = HTML::Template->new( filename => "layout.template" ); my $page = HTML::Template->new( filename => "page.inc" ); $page->param( title => "STEVE"); # <-- new line # # Insert the body into the layout template # $layout->param( page => $page->output() ); # # Now setup the title # $layout->param( title => "STEVE" ); print $layout->output(); ##

##


 
  STEVE
 
 
 STEVE
Imagine content here ..

 


##

##

#!/usr/bin/perl
use strict;
use warnings;

use HTML::Template;

my $page_params = {
  title => "STEVE"
};

my $layout_params = {
  title => "STEVE",
  page => page($page_params),
};

my $layout = HTML::Template->new( filename => "layout.template" );
$layout->param($layout_params);
print $layout->output();


sub page {
  my ($args) = @_;
  my $page   = HTML::Template->new( filename => "page.inc" );
  $page->param($args);
  return $page->output;
}