jpl/JPL/Class.pm

   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;