Commit | Line | Data |
---|---|---|
44babf1f | 1 | package Moose::Meta::Method::Accessor::Native::Hash::get; |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use Scalar::Util qw( looks_like_number ); | |
7 | ||
8b9641b8 | 8 | use Moose::Role; |
9 | ||
00bbc132 | 10 | with 'Moose::Meta::Method::Accessor::Native::Reader', |
11 | 'Moose::Meta::Method::Accessor::Native::Hash'; | |
44babf1f | 12 | |
13 | sub _minimum_arguments { 1 } | |
14 | ||
44babf1f | 15 | sub _inline_check_arguments { |
16 | my $self = shift; | |
17 | ||
53a4677c | 18 | return ( |
19 | 'for (@_) {', | |
20 | $self->_inline_check_var_is_valid_key('$_'), | |
21 | '}', | |
22 | ); | |
44babf1f | 23 | } |
24 | ||
25 | sub _return_value { | |
53a4677c | 26 | my $self = shift; |
27 | my ($slot_access) = @_; | |
44babf1f | 28 | |
53a4677c | 29 | return '@_ > 1 ' |
30 | . '? @{ (' . $slot_access . ') }{@_} ' | |
31 | . ': ' . $slot_access . '->{$_[0]}'; | |
44babf1f | 32 | } |
33 | ||
8b9641b8 | 34 | no Moose::Role; |
44babf1f | 35 | |
36 | 1; |