sub new {
	my ($class) = @_;
	my $this = bless {}, $class;
	$this->{foo} = undef;
	$this->{bar} = undef;
	return $this;
}