$ perl -M5.010 -e' package Foo { sub f { } } package Bar { our @ISA = "Foo"; } say for keys %{ $::{"Bar::"} }; say "---"; Bar->f(); say for keys %{ $::{"Bar::"} }; ' ISA --- ISA f