require 'src/com/zoho/crm/api/util/Constants.pm';
require 'src/com/zoho/api/exception/SDKException.pm';
use Moose;
sub new
{
my ($class) = shift;
my $self =
{
id => undef,
name => undef,
key_modified => (),
};
bless $self,$class;
return $self;
}
sub get_id
{
my ($self) = shift;
return $self->{id};
}
sub set_id
{
my ($self,$id) = @_;
$self->{id} = $id;
$self->{key_modified}{"id"} = 1;
}
sub get_name
{
my ($self) = shift;
return $self->{name};
}
sub set_name
{
my ($self,$name) = @_;
$self->{name} = $name;
$self->{key_modified}{"name"} = 1;
}
sub is_key_modified
{
my ($self,$key) = @_;
if((exists($self->{key_modified}{$key})))
{
return $self->{key_modified}{$key};
}
return undef;
}
sub set_key_modified
{
my ($self,$key,$modification) = @_;
$self->{key_modified}{$key} = $modification;
}
1;