1package Template::Plugin::Reverse2VMethod; 2use Template::Plugin::VMethods; 3@ISA = qw(Template::Plugin::VMethods); 4@SCALAR_OPS = ( reverse => \&reverse_string); 5@LIST_OPS = ( reverse => \&reverse_list); 6sub reverse_string { scalar reverse $_[0] } 7sub reverse_list { [ reverse map { scalar reverse $_ } @{ $_[0] } ] } 81; 9 10