use strict;
package Foo;
use isa qw(Bar);
sub new { bless {},shift }

##</code><code>##

# file isa.pm
package isa;

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

42;