Welcome back Sample Username,
you last logged in Sat 23rd Aug
####
Welcome back Sample Username, you last logged in Sat 23rd Aug
##
##
$h = {
user => {
name => "Fergal Daly"
last_login => "Feb 22nd"
}
}
##
##
Welcome back Fergal Daly, you last logged in Feb 22nd
##
##
require html::welcome_form;
my $tree = html::welcome_form->new;
my $user_name = $tree->look_down('tal:content' => 'user/name');
$user_name->replace_content($hash->{user}{name});
my $last_login = $tree->look_down('tal:content' => 'user/last_login);
$last_login->replace_content($hash->{user}{last_login});
##
##
for my $content (qw(name last_login)) {
$tree->look_down('tal:content' => $content)
->replace_content($hash->{user}{$content});
}