# file isa.pm
package isa;

sub import {
    my $pkg = shift;
    my $caller = caller;
    no strict 'vars';
    push @{"$caller\::ISA"}, @_;
}

42;