1package Data::Object::Scalar::Func::Ne; 2 3use 5.014; 4 5use strict; 6use warnings; 7 8use registry 'Data::Object::Types'; 9 10use Data::Object::Class; 11use Data::Object::ClassHas; 12 13extends 'Data::Object::Scalar::Func'; 14 15our $VERSION = '2.05'; # VERSION 16 17# BUILD 18 19has arg1 => ( 20 is => 'ro', 21 isa => 'Any', 22 req => 1 23); 24 25has arg2 => ( 26 is => 'ro', 27 isa => 'Any', 28 req => 1 29); 30 31# METHODS 32 33sub execute { 34 my ($self) = @_; 35 36 $self->throw("Not equal-to is not supported"); 37 38 return; 39} 40 41sub mapping { 42 return ('arg1', 'arg2'); 43} 44 451; 46