# Accessor_Factory.pm
use strict;
use warnings;

package Accessor_Factory;

1;  # appease the wrath of require

sub make_getsets {
  my @fields = @_;
  my $class = caller;
  for my $field ( @fields ) {
    my $code = <<EOCODE;
    {
      package $class;
      use Carp 'carp';
      sub $field : lvalue {
        my \$self = shift;
        carp "Only first argument to method $field of class $class is used"
          if \@_ > 1;
        \$self->{ $field } = shift if \@_;
        \$self->{ $field };
      }
    }
    1;
EOCODE
    eval $code or die $@;
  }
  return;
}
__END__