[p5sagit/p5-mst-13.2.git] / jpl / JPL / Class.pm

package JPL::Class;
use JPL::AutoLoader ();

sub DESTROY {}

sub import {
    my $class = shift;
    foreach $class (@_) {
	*{$class . "::AUTOLOAD"} = *JPL::AutoLoader::AUTOLOAD;
	*{$class . "::DESTROY"} = \&DESTROY;
    }
}
1;
Commit	Line	Data
d50cb536	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;