Bump version to 1.9900 for new version numbering scheme
[gitmo/Moose.git] / lib / Moose / Meta / Method / Accessor / Native / Hash / delete.pm
1 package Moose::Meta::Method::Accessor::Native::Hash::delete;
2
3 use strict;
4 use warnings;
5
6 our $VERSION = '1.9900';
7 $VERSION = eval $VERSION;
8 our $AUTHORITY = 'cpan:STEVAN';
9
10 use Moose::Role;
11
12 with 'Moose::Meta::Method::Accessor::Native::Hash::Writer' => {
13     -excludes => [
14         qw(
15             _inline_optimized_set_new_value
16             _return_value
17             )
18     ],
19 };
20
21 sub _adds_members { 0 }
22
23 sub _potential_value {
24     my $self = shift;
25     my ($slot_access) = @_;
26
27     return '(do { '
28              . 'my %potential = %{ (' . $slot_access . ') }; '
29              . '@return = delete @potential{@_}; '
30              . '\%potential; '
31          . '})';
32 }
33
34 sub _inline_optimized_set_new_value {
35     my $self = shift;
36     my ($inv, $new, $slot_access) = @_;
37
38     return '@return = delete @{ (' . $slot_access . ') }{@_};';
39 }
40
41 sub _return_value {
42     my $self = shift;
43     my ($slot_access) = @_;
44
45     return 'wantarray ? @return : $return[-1]';
46 }
47
48 no Moose::Role;
49
50 1;