package OOO;
use strict;
use warnings;



sub AUTOLOAD
{
	my ($self) = shift;
	my ($key, $val) = @_;
	our $AUTOLOAD;
	return if $AUTOLOAD =~ /::DESTROY$/;
	my ($method) = $AUTOLOAD =~ m/.*::(\w+)$/;
	

	if ($method eq 'set') {
		$self->{$key} = $val;
	}

	if ($method eq 'get') {
		return exists $self->{$key} ? $self->{$key} : undef;
	}

	if ($method eq 'del') {
		delete $self->{$key} if exists $self->{$key};
	}
	return $self;
}


1;