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