my $self = {};

sub new {
	my $proto = shift;
	my $class = ref($proto) || $proto;
	bless $self, $class;
	return $self;
}