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