tags/0.4.3.1-pre2/SrSv/Constants.pm

   1 package SrSv::Constants;
   2
   3 use strict;
   4
   5 use Exporter 'import';
   6 BEGIN {
   7         my $constants = {
   8                 # Wait For
   9                 WF_NONE         => 0,
  10                 WF_NICK         => 1,
  11                 WF_CHAN         => 2,
  12                 WF_ALL          => 3,
  13                 WF_MSG          => 4,
  14                 WF_MAX          => 4,
  15         };
  16         require constant;
  17         import constant $constants;
  18         our @EXPORT = keys %$constants;
  19 }
  20
  21 1;