deprecated.pm

package DeperecatedMethod;
use Moose;
our @CARP_NOT = ( 'Class::MOP::Method::Wrapped', __PACKAGE__ );

has value => (
	isa     => 'Int',
	is      => 'ro',
	lazy    => 1,
	default => &random_generator,
);

has seed_value => (
	isa     => 'Int',
	is      => 'ro',
	lazy    => 1,
	default => &random_generator,
);

before value => sub {
	warnings::warnif('deprecated',
		'attribute `value` is deprecated use `seed_value`'
	);
};

before mymethod => sub {
	warnings::warnif('deprecated',
		'method `mymethod` is deprecated use `random_generator_instead`'
	);
};

sub mymethod {
  return random_generator;
}

sub random_generator {
  return 9;
}

1;