NAME

Accessor - base class for accessor-pattern classes

USAGE

my $h = new Hash(asd => 111);

warn $h->asd(); 	# get values
warn $h->asd('ad'); # set values

package Hash;

use base 'Accessor';

sub new {
	my $class = shift;
	return bless {@_}, $class;
}

VERSION

0.3

AUTHOR

All code writen by Ivan Trunaev.

Contacts <ivan@trunaev.ru>