1package Data::Object::Hash::Func::Get; 2 3use 5.014; 4 5use strict; 6use warnings; 7 8use registry 'Data::Object::Types'; 9 10use Data::Object::Class; 11use Data::Object::ClassHas; 12 13extends 'Data::Object::Hash::Func'; 14 15our $VERSION = '2.05'; # VERSION 16 17# BUILD 18 19has arg1 => ( 20 is => 'ro', 21 isa => 'HashLike', 22 req => 1 23); 24 25has arg2 => ( 26 is => 'ro', 27 isa => 'StringLike', 28 req => 1 29); 30 31# METHODS 32 33sub execute { 34 my ($self) = @_; 35 36 my ($data, $key) = $self->unpack; 37 38 return $data->{$key}; 39} 40 41sub mapping { 42 return ('arg1', 'arg2'); 43} 44 451; 46