Commit | Line | Data |
---|---|---|
444a29de | 1 | package Moose::Meta::Method::Accessor::Native::Hash::shallow_clone; |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use Params::Util (); | |
7 | ||
8 | use Moose::Role; | |
9 | ||
00bbc132 | 10 | with 'Moose::Meta::Method::Accessor::Native::Reader'; |
444a29de | 11 | |
12 | sub _minimum_arguments { 0 } | |
13 | ||
14 | sub _maximum_arguments { 0 } | |
15 | ||
16 | sub _return_value { | |
17 | my $self = shift; | |
18 | my ($slot_access) = @_; | |
19 | ||
20 | return '{ %{ (' . $slot_access . ') } }'; | |
21 | } | |
22 | ||
23 | no Moose::Role; | |
24 | ||
25 | 1; |