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