sub someMethod { =PERL_INCLUDE my $this = isa( ref $_[0], 'Package::Path::Module' ) ? shift : die('Package::Path::Module::someMethod called with uninstantiated object.'); =PERL_INCLUDE # ... }