package Template::Plugin::UppercaseButCalledReverseVMethod;
use Template::Plugin::VMethods;
@ISA = qw(Template::Plugin::VMethods);
@SCALAR_OPS = qw(reverse);
sub reverse
{
my $string = shift;
scalar uc $string;
}
1;
package Template::Plugin::UppercaseButCalledReverseVMethod;
use Template::Plugin::VMethods;
@ISA = qw(Template::Plugin::VMethods);
@SCALAR_OPS = qw(reverse);
sub reverse
{
my $string = shift;
scalar uc $string;
}
1;