From f769c7fcf268ac0cfd0d73fb02105ea48877041b Mon Sep 17 00:00:00 2001 From: ivan Date: Fri, 25 Sep 1998 07:53:55 +0000 Subject: [PATCH] Initial revision --- site_perl/dbdef_index.pm | 43 +++++++++++++++++++++++++++++++++++++++++++ site_perl/dbdef_unique.pm | 44 ++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 87 insertions(+) create mode 100644 site_perl/dbdef_index.pm create mode 100644 site_perl/dbdef_unique.pm diff --git a/site_perl/dbdef_index.pm b/site_perl/dbdef_index.pm new file mode 100644 index 000000000..2097db1ea --- /dev/null +++ b/site_perl/dbdef_index.pm @@ -0,0 +1,43 @@ +package FS::dbdef_index; + +use strict; +use vars qw(@ISA); +use FS::dbdef_colgroup; + +@ISA=qw(FS::dbdef_colgroup); + +=head1 NAME + +FS::dbdef_unique.pm - Index object + +=head1 SYNOPSIS + + use FS::dbdef_index; + + # see FS::dbdef_colgroup methods + +=head1 DESCRIPTION + +FS::dbdef_unique objects represent the (non-unique) indices of a table +(L). FS::dbdef_unique inherits from FS::dbdef_colgroup. + +=head1 BUGS + +Is this empty subclass needed? + +=head1 SEE ALSO + +L, L, L + +=head1 HISTORY + +class for dealing with index definitions + +ivan@sisd.com 98-apr-19 + +pod ivan@sisd.com 98-sep-24 + +=cut + +1; + diff --git a/site_perl/dbdef_unique.pm b/site_perl/dbdef_unique.pm new file mode 100644 index 000000000..4ec40de60 --- /dev/null +++ b/site_perl/dbdef_unique.pm @@ -0,0 +1,44 @@ +package FS::dbdef_unique; + +use strict; +use vars qw(@ISA); +use FS::dbdef_colgroup; + +@ISA=qw(FS::dbdef_colgroup); + +=head1 NAME + +FS::dbdef_unique.pm - Unique object + +=head1 SYNOPSIS + + use FS::dbdef_unique; + + # see FS::dbdef_colgroup methods + +=head1 DESCRIPTION + +FS::dbdef_unique objects represent the unique indices of a database table +(L). FS::dbdef_unique inherits from FS::dbdef_colgroup. + +=head1 BUGS + +Is this empty subclass needed? + +=head1 SEE ALSO + +L, L, L + +=head1 HISTORY + +class for dealing with unique definitions + +ivan@sisd.com 98-apr-19 + +pod ivan@sisd.com 98-sep-24 + +=cut + +1; + + -- 2.11.0