src/Modules/case.pl

   1 #      case.pl: upper/lower a string
   2 #       Author: Tim Riker
   3 #    Licensing: Artistic License
   4 #      Version: v0.1
   5 #
   6 use strict;
   7
   8 package case;
   9
  10 sub upper {
  11     my($message) = @_;
  12     &::performStrictReply(uc $message);
  13 }
  14
  15 sub lower {
  16     my($message) = @_;
  17     &::performStrictReply(lc $message);
  18 }
  19
  20 1;