1use strict; 2use warnings; 3use Test::More tests => 3; 4BEGIN { use_ok('inherit') } 5require_ok('inherit'); 6 7my $der = new inherit::CDerived(); 8is($der->Foo(), "CBase::Foo", "inherit test"); 9 10