snippet new
sub new {
	my $class = shift;

	my $self = {};
	bless $self, $class;

	${0}

	return $self;
}
endsnippet