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