Bump version to 1.9900 for new version numbering scheme
[gitmo/Moose.git] / lib / Moose / Meta / Method / Accessor / Native / Hash / defined.pm
1 package Moose::Meta::Method::Accessor::Native::Hash::defined;
2
3 use strict;
4 use warnings;
5
6 use Scalar::Util qw( looks_like_number );
7
8 our $VERSION = '1.9900';
9 $VERSION = eval $VERSION;
10 our $AUTHORITY = 'cpan:STEVAN';
11
12 use Moose::Role;
13
14 with 'Moose::Meta::Method::Accessor::Native::Reader' => {
15     -excludes => [
16         qw(
17             _minimum_arguments
18             _maximum_arguments
19             _inline_check_arguments
20             )
21     ],
22     },
23     'Moose::Meta::Method::Accessor::Native::Hash';
24
25 sub _minimum_arguments { 1 }
26
27 sub _maximum_arguments { 1 }
28
29 sub _inline_check_arguments {
30     my $self = shift;
31
32     return $self->_inline_check_var_is_valid_key('$_[0]');
33 }
34
35 sub _return_value {
36     my $self = shift;
37     my ($slot_access) = @_;
38
39     return 'defined ' . $slot_access . '->{ $_[0] }';
40 }
41
42 no Moose::Role;
43
44 1;