package Widget;

sub new
{
	my ( $class, %params ) = @_;

	# etc
}

sub get_color { ... }