package MooseX::Method::Constant;

use Moose;

our $count;

sub make {
  my ($class,$value) = @_;

  $count++;

  no strict qw/refs/;

  *{"$class\::constant_$count"} = sub () { $value };

  return "$class\::constant_$count()";
}

1;

