package AutoNew;

sub import {
  my $caller = caller;
  push @{"$caller\::ISA"}, 'AutoNew::New';
}

package AutoNew::New;

sub new {
  my $class = shift;
  my %ATTR = @_;
  bless \%ATTR => $class;
}

1;