1package Template::Plugin::ReverseVMethod; 2use Template::Plugin::VMethods; 3@ISA = qw(Template::Plugin::VMethods); 4@SCALAR_OPS = qw(reverse); 5 6sub reverse 7{ 8 my $string = shift; 9 scalar reverse $string; 10} 11 121; 13 14