sub method{
	my ($self) = shift;
	if (@_){
		$self->{MethodName} = shift;
	}
	else{
		ref $self
		? $self->{MethodName}
		: "An un-named " . $self;
	}
}