home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _fb30714484af9571907ac7b597b944a1 < prev    next >
Encoding:
Text File  |  2004-06-01  |  266 b   |  17 lines
  1. package main;
  2. use MyClass;
  3.  
  4. my MyClass $x :Good :Bad(1**1-1) :Omni(vorous);
  5.  
  6. package SomeOtherClass;
  7. use base MyClass;
  8.  
  9. sub tent { 'acle' }
  10.  
  11. sub w :Ugly(sister) :Omni('po',tent()) {}
  12.  
  13. my @y :Good :Omni(s/cie/nt/);
  14.  
  15. my %y :Good(q/bye) :Omni(q/bus/);
  16.  
  17.