package object; use Carp; our $AUTOLOAD; use Data::Dumper; sub defaults { return {}; } sub readonly { return (); } sub init {}; sub params { my $self = shift; my $defaults = $self->defaults(); my %params = (%$defaults, @_); for (keys %params) { warn "unknown parameter '$_' passed to new()" unless exists $defaults->{$_}; $self->{$_} = $defaults->{$_}; $self->set($_, $params{$_}); } } sub AUTOLOAD { my $self = shift; my $type = ref($self) or croak "$self is not an object"; my $name = $AUTOLOAD; $name =~ s/.*://; # strip fully-qualified portion return if $name eq 'DESTROY'; unless (exists $self->{$name} ) { carp "Can't access `$name' field in class $type"; return; } { no strict 'refs'; *{$AUTOLOAD} = sub { $_[1] ? $_[0]->set($name, $_[1]) : $_[0]->get($name); } } &{$AUTOLOAD}($self,@_); } sub new { my $class = shift; my $self = {}; bless $self, $class; $self->params(@_); $self->init(); return $self; } sub _readonly { my ($self,$key) = @_; return 1 if grep {$_ eq $key} $self->readonly; return 0; } sub get { my ($self,$key) = @_; return $self->{$key} if exists $self->{$key}; warn "Accessing undefined key '$key'."; return undef; } sub set { my ($self,$key,$new) = @_; return if $self->_readonly($key); carp "Accessing undefined key '$key'." and return unless exists $self->{$key}; my $old = $self->{$key}; $self->{$key} = $new; return $old; } 1;