use strict;
use warnings;

{
	package Foo;
	
	sub new { bless {}, shift };

	BEGIN {
	   no strict 'refs';
	   for my $property (qw/foo bar/) {
		   *$property = sub : lvalue { $_[0]->{$property} };
	   }
	}
}

{
	package Bar;
	use base qw(Foo);
	BEGIN {
	   no strict 'refs';
	   for my $property (qw/fribble ni/) {
		   *$property = sub : lvalue { $_[0]->{$property} };
	   }
	}
};

my $o = Bar->new;
$o->foo=1;
$o->bar=2;
$o->fribble=3;
$o->ni=4;
print join(', ', $o->foo, $o->bar, $o->fribble, $o->ni), "\n";

# produces
# 1, 2, 3, 4