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