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