home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / jpl / JPL / Class.pm < prev    next >
Text File  |  1999-09-14  |  228b  |  14 lines
  1. package JPL::Class;
  2. use JPL::AutoLoader ();
  3.  
  4. sub DESTROY {}
  5.  
  6. sub import {
  7.     my $class = shift;
  8.     foreach $class (@_) {
  9.     *{$class . "::AUTOLOAD"} = *JPL::AutoLoader::AUTOLOAD;
  10.     *{$class . "::DESTROY"} = \&DESTROY;
  11.     }
  12. }
  13. 1;
  14.