exec "perl import2package.pl" unless caller();

use strict;
use warnings;

package Import2Package;


sub import {
   my ($self, $dtd, $pack) =@_;
   my $super = (caller())[0];
   no strict 'refs';
   push @{"${pack}::ISA"}, $super;
}

1;