1package Data::Object::Array::Func::Pop;
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  my ($data) = $self->unpack;
31
32  return pop @$data;
33}
34
35sub mapping {
36  return ('arg1');
37}
38
391;
40