NAME

Accessor - base class for accessor-pattern classes

USAGE

my $obj = new Hash(myattr => 1);

say $obj->myattr();   # get myattr, say 1
say $obj->myattr(0);  # set myattr to 0

package Hash;

use base 'Accessor';

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

VERSION

0.4

AUTHOR

Developed by Ivan Trunaev

Contacts ivan@trunaev.ru

THANKS

tobyink - Little refactoring of core.