|
|
|
@ -68,6 +68,8 @@ our @EXPORT_OK = qw(
|
|
|
|
|
$SOUND_SET_ATTRIBUTE
|
|
|
|
|
$CONTRACT_SOUND_SET_ATTRIBUTE
|
|
|
|
|
$HEADER_RULE_SET_ATTRIBUTE
|
|
|
|
|
|
|
|
|
|
$BOOLEAN_DATA_TYPE
|
|
|
|
|
);
|
|
|
|
|
#$FORCE_OUTBOUND_CALLS_TO_PEER
|
|
|
|
|
|
|
|
|
@ -144,6 +146,8 @@ our $SOUND_SET_ATTRIBUTE = 'sound_set';
|
|
|
|
|
our $CONTRACT_SOUND_SET_ATTRIBUTE = 'contract_sound_set';
|
|
|
|
|
our $HEADER_RULE_SET_ATTRIBUTE = 'header_rule_set';
|
|
|
|
|
|
|
|
|
|
our $BOOLEAN_DATA_TYPE = 'boolean';
|
|
|
|
|
|
|
|
|
|
sub new {
|
|
|
|
|
|
|
|
|
|
my $class = shift;
|
|
|
|
@ -224,6 +228,14 @@ sub has_enum_default {
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub is_boolean {
|
|
|
|
|
my $self = shift;
|
|
|
|
|
if ($self->{data_type} eq $BOOLEAN_DATA_TYPE) {
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub gettablename {
|
|
|
|
|
|
|
|
|
|
return $tablename;
|
|
|
|
|