X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=DBSchema%2FColGroup.pm;h=95d854c0337e8d5ce0b166e7231795e54036bf74;hb=d2de365ce67040de0511073417db40e5550d63be;hp=ceeb223cacc4b546f05aa1210cb17b166d03b8e4;hpb=3b9971c65158bd6eeef1d146fdef19f2a56e2954;p=DBIx-DBSchema.git

diff --git a/DBSchema/ColGroup.pm b/DBSchema/ColGroup.pm
index ceeb223..95d854c 100644
--- a/DBSchema/ColGroup.pm
+++ b/DBSchema/ColGroup.pm
@@ -1,11 +1,7 @@
 package DBIx::DBSchema::ColGroup;
 
 use strict;
-use vars qw(@ISA);
-#use Exporter;
-
-#@ISA = qw(Exporter);
-@ISA = qw();
+use Carp;
 
 =head1 NAME
 
@@ -32,6 +28,10 @@ DBIx::DBSchema::ColGroup - Column group objects
 
 =head1 DESCRIPTION
 
+This class is deprecated and included for backwards-compatibility only.
+See L<DBIx::DBSchema::Index> for the current class used to store unique
+and non-unique indices.
+
 DBIx::DBSchema::ColGroup objects represent sets of sets of columns.  (IOW a
 "list of lists" - see L<perllol>.)
 
@@ -50,6 +50,9 @@ sub new {
   my($proto, $lol) = @_;
 
   my $class = ref($proto) || $proto;
+
+  carp "WARNING: $proto is deprecated; switch to DBIx::DBSchema::Index";
+
   my $self = {
     'lol' => $lol,
   };
@@ -131,9 +134,9 @@ the same terms as Perl itself.
 
 =head1 SEE ALSO
 
-L<DBIx::DBSchema::Table>, L<DBIx::DBSchema::ColGroup::Unique>,
-L<DBIx::DBSchema::ColGroup::Index>, L<DBIx::DBSchema>, L<perllol>, L<perldsc>,
-L<DBI>
+L<DBIx::DBSchema::Index>, L<DBIx::DBSchema::Table>,
+L<DBIx::DBSchema::ColGroup::Unique>, L<DBIx::DBSchema::ColGroup::Index>,
+L<DBIx::DBSchema>, L<perllol>, L<perldsc>, L<DBI>
 
 =cut