package SomeClass;
use overload '""'=>"name";
sub new {
	return bless {}, shift;
}
sub name {
	my $self = shift;
	$self->{NAME} = shift if @_;
	return $self->{NAME};
}
1;