has 'x' => (is => 'rw', isa => 'Int');
has 'x' => {is => 'rw', isa => 'Int'};


##</code><code>##

use Template;
 
# some useful options (see below for full list)
my $config = {
    INCLUDE_PATH => '/search/path',  # or list ref
    INTERPOLATE  => 1,               # expand "$var" in plain text
    POST_CHOMP   => 1,               # cleanup whitespace
    PRE_PROCESS  => 'header',        # prefix each template
    EVAL_PERL    => 1,               # evaluate Perl code blocks
};
 
# create Template object
my $template = Template->new($config);
 
# define template variables for replacement
my $vars = {
    var1  => $value,
    var2  => \%hash,
    var3  => \@list,
    var4  => \&code,
    var5  => $object,
};
 
# specify input filename, or file handle, text reference, etc.
my $input = 'myfile.html';
 
# process input template, substituting variables
$template->process($input, $vars)
    || die $template->error();