1 2 3 4 5 6 7 8 9 10 11 12 13 14
#!perl package Bar; our $VERSION = "2.000"; sub f {} package Foo; our @ISA = qw(Bar); our $VERSION = "1.000"; package main; Foo->f();