package Foo::Bar;

use Carp;
our @ISA = ();

1;

sub new {
  my ($class, %opt) = @_;
  my $self = {};
  bless ($self, $class);
  $self->init(%opt);
  return $self;
}