It's one of the reasons I wrote vars::i

[PodMaster]

It's one of the reasons I wrote vars::i

my $foo = Foo->new;
print "foo is".($foo->isa( 'Bar' ) ? '' : ' _not_')." a Bar\n";

package Bar;
sub null {}

package Foo;
use vars::i qw[ @ISA Bar ];
sub new { bless {},shift }
__END__
foo is a Bar

[bart]

That's all good and dandy, but even tough your module looks useful (and generic), I can't say I like the resulting interface — i.e. the use statement. I'd rather see something like this:

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

The module isa.pm can actually quite short:

# file isa.pm
package isa;

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

42;

Et voilà:

foo is a Bar

Of course, with base doing the same and more, I don't know if there's much need for this here module.