package ModuleA;
use SelfLoader;

1;
__DATA__
sub new {
  my $class = shift;
  bless { @_ }, $class;
}