Select Code to Download

package Variant1::RootClass;

...
}

1;

use Variant1::RootClass;

...
}

1;

use Variant1::DerivedClass;

...
}

1;

package Variant2::RootClass;

...
}

1;

use Variant2::RootClass;

...
}

1;

use Variant2::DerivedClass;

...
}

1;

#!/usr/bin/perl

...

print $obj2->set_derived_entry3(27);
print Dumper $obj2;