package Template::Plugin::DoubleVMethod;
use Template::Plugin::VMethods;
@ISA = qw(Template::Plugin::VMethods);
@SCALAR_OPS = ( double => \&double_string);
@LIST_OPS = ( double => \&double_list);
sub double_string { $_[0]x2 }
sub double_list { [ (@{ $_[0] }) x 2] }
1;