package Squatch::Substandard; use Squatch::Standard; use base qw(Squatch::Standard); sub dingies { return $_[0]{'Squatch::Substandard::dingies'} }