1package Moose::Meta::Method::Accessor::Native::Counter::set; 2our $VERSION = '2.2201'; 3 4use strict; 5use warnings; 6 7use Moose::Role; 8 9with 'Moose::Meta::Method::Accessor::Native::Writer'; 10 11sub _minimum_arguments { 1 } 12sub _maximum_arguments { 1 } 13 14sub _potential_value { '$_[0]' } 15 16sub _inline_optimized_set_new_value { 17 my $self = shift; 18 my ($inv, $new, $slot_access) = @_; 19 20 return $slot_access . ' = $_[0];'; 21} 22 23no Moose::Role; 24 251; 26