home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _49fe4795fac20d41f0f4c09dddadbc3e < prev    next >
Encoding:
Text File  |  2004-06-01  |  386 b   |  22 lines
  1. package UNIVERSAL;
  2. use Attribute::Handlers;
  3. use Tie::RangeHash;
  4.  
  5. sub Ranged : ATTR(HASH) {
  6.     my ($package, $symbol, $referent, $attr, $data) = @_;
  7.     tie %$referent, 'Tie::RangeHash';
  8. }
  9.  
  10. package main;
  11.  
  12. my %next : Ranged;
  13.  
  14. $next{'cat,dog'} = "animal";
  15. $next{'fish,fowl'} = "meal";
  16. $next{'heaven,hell'} = "reward";
  17.  
  18. while (<>) {
  19.     chomp;
  20.     print $next{$_}||"???", "\n";
  21. }
  22.