src/Modules/reverse.pl

   1 #   reverse.pl: reverse a string
   2 #       Author: Tim Riker
   3 #    Licensing: Artistic License
   4 #      Version: v0.1 (20050812)
   5 #
   6 use strict;
   7
   8 package reverse;
   9
  10 sub reverse {
  11     my($message) = @_;
  12     &::performStrictReply(join('',reverse(split('',$message))));
  13 }
  14
  15 1;