use strict;
use warnings;
-use MooseX::ClassAttribute::Meta::Method::Accessor;
-
use namespace::autoclean;
use Moose::Role;
# because it overrides a lot of behavior. However, as a subclass it
# won't cooperate with _other_ subclasses.
-around 'accessor_metaclass' => sub {
- return 'MooseX::ClassAttribute::Meta::Method::Accessor';
-};
-
around '_process_options' => sub {
my $orig = shift;
my $class = shift;
->clear_class_attribute_value( $self->name() );
};
+override '_inline_instance_get' => sub {
+ my $self = shift;
+
+ return $self->associated_class()
+ ->inline_get_class_slot_value( $self->slots() );
+};
+
+
+override _inline_weaken_value => sub {
+ my $self = shift;
+ my ($instance, $value) = @_;
+ return unless $self->is_weak_ref;
+
+ my $mi = $self->associated_class->get_meta_instance;
+ return (
+ $self->associated_class->inline_weaken_class_slot_value( $self->slots(), $value ),
+ 'if ref ' . $value . ';',
+ );
+};
+
+override '_inline_instance_set' => sub {
+ my $self = shift;
+ shift;
+ my $value = shift;
+
+ my $meta = $self->associated_class();
+
+ my $code
+ = $meta->inline_set_class_slot_value( $self->slots(), $value ) . ";";
+
+ return $code;
+};
+
+override '_inline_instance_has' => sub {
+ my $self = shift;
+
+ return $self->associated_class()
+ ->inline_is_class_slot_initialized( $self->slots() );
+};
+
+override '_inline_clear_value' => sub {
+ my $self = shift;
+
+ return $self->associated_class()
+ ->inline_deinitialize_class_slot( $self->slots() );
+};
+
1;
# ABSTRACT: A trait for class attributes