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