Select Code to Download

package MyPackage::Module::ThisFeature;
use base MyPackage::Module;

use Test::More 'no_plan';
my $obj = MyPackage::Module::ThisFeature->new();
isa_ok($obj,'MyPackage::Module');
isa_ok($obj,'MyPackage::Module::ThisFeature');
isa_ok($obj,'MyPackage::Module::ThatFeature');

perl 01-test.t
ok 1 - The object isa MyPackage::Module
ok 2 - The object isa MyPackage::Module::ThisFeature
not ok 3 - The object isa MyPackage::Module::ThatFeature

#!/usr/bin/perl -wT
use strict;
...
my $result = $obj->this_method();
   .   .   .

package MyPackage::Module;

...
}

1;