Select Code to Download

package Thingy;
sub cog_class { 'Thingy::Cog' }
...
package MyThingy;
use base Thingy;
sub cog_class { 'MyThingy::Cog' }

package MyThingy::Cog;
sub get_ramp { my $self = shift; $self->thingy->ramp_class->new(@_) }