sub
new {
my
(
$class
,
%param
) =
@_
;
my
$self
= {};
$param
{db} =
q{sybase}
;
$param
{object_name_max_length} =
$param
{object_name_max_length} || 30;
$param
{end_of_statement} =
$param
{end_of_statement} ||
"\ngo"
;
$self
=
$class
->SUPER::new(
%param
);
bless
(
$self
,
$class
);
$self
->{
log
}->
warn
(
qq{Using object_name_max_length }
.
$param
{object_name_max_length});
return
$self
;
}
sub
_get_drop_index_sql {
my
(
$self
,
$tablename
,
$indexname
) =
@_
;
return
qq{drop index $tablename.$indexname}
.
$self
->{end_of_statement}
.
$self
->{newline};
}
1;