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     # make it green like an old terminal
  13     &::performStrictReply("\00303" . uc $message);
  14 }
  15
  16 sub lower {
  17     my($message) = @_;
  18     &::performStrictReply(lc $message);
  19 }
  20
  21 1;
  22
  23 # vim:ts=4:sw=4:expandtab:tw=80