use strict; use warnings; use FindBin qw/$Bin/; use lib "$Bin/lib"; use Test::More tests => 3; use BaseClass; use SubClass; BaseClass->affe; is(BaseClass::no_calls_to_affe(), 1); SubClass->affe; is(BaseClass::no_calls_to_affe(), 2); is(SubClass::no_calls_to_affe(), 1);