use Carp 'confess';
use Scalar::Util 'blessed', 'weaken';
-our $VERSION = '0.91';
+our $VERSION = '0.92_01';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
sub accessor_metaclass { 'Class::MOP::Method::Accessor' }
-sub process_accessors {
- Carp::cluck('The process_accessors method has been made private.'
- . " The public version is deprecated and will be removed in a future release.\n");
- shift->_process_accessors(@_);
-}
-
sub _process_accessors {
my ($self, $type, $accessor, $generate_as_inline_methods) = @_;
my $inline = shift;
my $class = $self->associated_class;
- $inline = 1 unless defined $inline;
-
$class->add_method(
$self->_process_accessors('accessor' => $self->accessor(), $inline)
) if $self->has_accessor();