in reply to Re^2: Bean properties...in thread Bean properties...
sub AB { my $self =shift; if (@_) { @{ $self->{AB} } = @_ } return @{ $self->{AB} }; } [download]