Select Code to Download

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

sub someMethod {
=PERL_INCLUDE
...
=PERL_INCLUDE
#   ...
}