# Returns the object for a given widget ID sub get_widget { my $widgetID = shift; my $className = get_widget_class_name($carrierID); my $fullClass = 'SuperWidget::Widget::' . $className; my $widget = new $fullClass ($widgetID); return $widget; } #### package SuperWidget::Widget::SpecificWidget;