1package Data::Object::String::Func::Gt; 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 arg2 => ( 27 is => 'ro', 28 isa => 'StringLike', 29 req => 1 30); 31 32# METHODS 33 34sub execute { 35 my ($self) = @_; 36 37 my ($arg1, $arg2) = $self->unpack; 38 39 return ("$arg1" gt "$arg2") ? 1 : 0; 40} 41 42sub mapping { 43 return ('arg1', 'arg2'); 44} 45 461; 47