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