use new method names from cmop
[gitmo/Moose.git] / lib / Moose / Meta / Method / Accessor / Native / Number / sub.pm
CommitLineData
f23ffd15 1package Moose::Meta::Method::Accessor::Native::Number::sub;
2
3use strict;
4use warnings;
5
245478d5 6our $VERSION = '1.19';
f23ffd15 7$VERSION = eval $VERSION;
8our $AUTHORITY = 'cpan:STEVAN';
9
8b9641b8 10use Moose::Role;
11
12with 'Moose::Meta::Method::Accessor::Native::Writer' => {
13 -excludes => [
14 qw(
15 _minimum_arguments
16 _maximum_arguments
a486d5ad 17 _inline_optimized_set_new_value
8b9641b8 18 )
19 ]
7f5ec80d 20 };
f23ffd15 21
1e2c801e 22sub _minimum_arguments { 1 }
8b9641b8 23
1e2c801e 24sub _maximum_arguments { 1 }
f23ffd15 25
26sub _potential_value {
53a4677c 27 my $self = shift;
28 my ($slot_access) = @_;
f23ffd15 29
53a4677c 30 return $slot_access . ' - $_[0]';
f23ffd15 31}
32
a486d5ad 33sub _inline_optimized_set_new_value {
53a4677c 34 my $self = shift;
35 my ($inv, $new, $slot_access) = @_;
f23ffd15 36
a486d5ad 37 return $slot_access . ' -= $_[0];';
f23ffd15 38}
39
8b9641b8 40no Moose::Role;
41
f23ffd15 421;