package Foo;

use Class::MakeMethods::Template::Hash (
  'new --with_init' => 'new',
  scalar => 'foo',
);

sub init {
  my $self = shift;
  my %args = @_;
  die 'I need foo!' unless $args{ foo };
  $self->foo( $args{foo} );
}