Select Code to Download

    # Build and require the subclass for this type:
    my $class = __PACKAGE__ . "::" . $opts{type};
...
    };
    # Bless into the determined subclass for this type:
    bless $self, $class;

use strict;
use warnings;
...
        $part->name(),
        ref($part)
);

package Widget;

...
}

1;

package Widget::Part;

...
}

1;

package Widget::Part::Cog;

...
}

1;