|
require 'src/com/zoho/crm/api/util/Constants.pm' ;
require 'src/com/zoho/api/exception/SDKException.pm' ;
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;
|