#!/usr/bin/perl -wl
our @ISA;
use isa;

isa Foo,Bar; # drops Bar and also spits out warning...
             # works same if you quote Bar, dies if Foo
             # is quoted or we're under strict
print "@ISA";
@ISA = ();

Foo->isa("Bar"); # this works but the syntax is...funky
print "@ISA";
@ISA = ();

UNIVERSAL::isa(qw(Foo Bar)); # kinda long, eh?
print "@ISA";
@ISA = ();

main->isa(qw(Foo Bar)); # makes sense... pushes itself onto
                        # @ISA, though

__END__
Useless use of a constant in void context at isa.pl line 5.
Foo
Foo Bar
Foo Bar
main Foo Bar