
package Enum;

sub import {
  my $class = shift;
  my @names = @_;
  my $i = 1;
  my $caller = caller;
  for (@names)  {
    my $q = $i++;
    *{"$caller\::$_"} = sub () { $q };
  }
}

1;

