1package Data::Object::String::Func::Uppercase; 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 26# METHODS 27 28sub execute { 29 my ($self) = @_; 30 31 return $self->arg1->uc; 32} 33 34sub mapping { 35 return ('arg1'); 36} 37 381; 39