use strict;
package whc_standard;
sub new {
	my ($class,@others) = @_;
	my %object;
	# add from @others into %object HERE
	set(\%object,@others);
	bless \%object,$class;
	}
sub get {
	my ($object,$what) = @_;
	return $$object{$what};
	}
sub set {
	my ($object,%settings) ;
	if (ref($_[1]) eq "HASH") {
		$object = $_[0];
		%settings = %{$_[1]};
	} else {
		($object,%settings) = @_;
	}
	foreach my $what (keys %settings) {
		my $whatcopy = $what;
		$whatcopy =~ s/^-//;
		$$object{$whatcopy}=$settings{$what};
		}
	return 1;
	}
1;
	
