sub new {
	my $class = shift;
	my $hash_ref = shift;
	my $self = {
		value => '100',
		color => 'charcoal',
	};
	@$self{keys %$hash_ref} = (values %$hash_ref) if (defined %$hash_ref);
	bless($self, $class);
}