1package Data::Object::Array::Func::Hash;
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::Array::Func';
14
15our $VERSION = '2.05'; # VERSION
16
17# BUILD
18
19has arg1 => (
20  is => 'ro',
21  isa => 'ArrayLike',
22  req => 1
23);
24
25# METHODS
26
27sub execute {
28  my ($self) = @_;
29
30  return $self->arg1->pairs_hash;
31}
32
33sub mapping {
34  return ('arg1');
35}
36
371;
38