return @{$self->{$slot}} if wantarray;
return $self->{$slot};
##</code><code>##

#######################################################
# generate the generic accessor methods using closures:
for my $property (keys %properties) {
	my $slot = __PACKAGE__ . "::$property";
	no strict 'refs';	# so symbolic ref to typeglob works - see The Camel p.338
	*$property = sub {
		my $self = shift;
		if (@_) {
			if ( ref $_[0] ) {	# arg is a ref, just store it
				$self->{$slot} = shift;
			}
			elsif ( $properties{$property} eq 'ARRAY' ) {	# translate array to arrayref
				$self->{$slot} = [@_];
			}
			elsif ( $properties{$property} eq 'HASH' ) {	# translate hash to hashref
				$self->{$slot} = {@_};
			}
			elsif ( $properties{$property} eq 'SCALAR' ) {	# scalar, no translation
				$self->{$slot} = shift;
			}
			else {
				die "Problem with $slot";
			}
		}
		return @{ $self->{$slot} } if wantarray;
		return $self->{$slot};
	};
}