my $worker;

sub new
{
	my ($class, $mw, $worker) = @_;
	my $self = $class->SUPER::new($mw);
	return $self;
}

##</code><code>##

sub widget
{
	my $self = shift;
	my $mw = shift;
	if ($self->{widget}){return $self->{widget}}
	
	use autouse 'workerwidget';
	my $widget = $mw->workerwidget($self);
	$self->{widget} = $widget;
	return $widget;
}

##</code><code>##

my $worker = ServerListClass->new();
my $serverlistwidget = $mv->$worker->widget($mw)->pack();