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