# Foo.pm
use strict;
use warnings;

package Foo;

1;

BEGIN {
  use Accessor_Factory;
  Accessor_Factory::make_getsets( qw( bar baz ) );
}

sub new {
  return bless +{}, shift;
}
__END__