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; }
Accessor - base class for accessor-pattern classes
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; }