From: Ivan Kohler <ivan@freeside.biz>
Date: Sun, 3 Nov 2013 09:08:56 +0000 (-0800)
Subject: start of foreign key support
X-Git-Url: http://git.freeside.biz/gitweb/?p=DBIx-DBSchema.git;a=commitdiff_plain;h=eccb555b70fcc8805bf26ed4af3f5d08ec7e2f70

start of foreign key support
---

diff --git a/DBSchema/ColGroup.pm b/DBSchema/ColGroup.pm
deleted file mode 100644
index 95d854c..0000000
--- a/DBSchema/ColGroup.pm
+++ /dev/null
@@ -1,144 +0,0 @@
-package DBIx::DBSchema::ColGroup;
-
-use strict;
-use Carp;
-
-=head1 NAME
-
-DBIx::DBSchema::ColGroup - Column group objects
-
-=head1 SYNOPSIS
-
-  use DBIx::DBSchema::ColGroup;
-
-  $colgroup = new DBIx::DBSchema::ColGroup ( $lol_ref );
-  $colgroup = new DBIx::DBSchema::ColGroup ( \@lol );
-  $colgroup = new DBIx::DBSchema::ColGroup (
-    [
-      [ 'single_column' ],
-      [ 'multiple_columns', 'another_column', ],
-    ]
-  );
-
-  $lol_ref = $colgroup->lol_ref;
-
-  @sql_lists = $colgroup->sql_list;
-
-  @singles = $colgroup->singles;
-
-=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>.)
-
-=head1 METHODS
-
-=over 4
-
-=item new [ LOL_REF ]
-
-Creates a new DBIx::DBSchema::ColGroup object.  Pass a reference to a list of
-lists of column names.
-
-=cut
-
-sub new {
-  my($proto, $lol) = @_;
-
-  my $class = ref($proto) || $proto;
-
-  carp "WARNING: $proto is deprecated; switch to DBIx::DBSchema::Index";
-
-  my $self = {
-    'lol' => $lol,
-  };
-
-  bless ($self, $class);
-
-}
-
-=item lol_ref
-
-Returns a reference to a list of lists of column names.
-
-=cut
-
-sub lol_ref {
-  my($self) = @_;
-  $self->{'lol'};
-}
-
-=item sql_list
-
-Returns a flat list of comma-separated values, for SQL statements.
-
-For example:
-
-  @lol = (
-           [ 'single_column' ],
-           [ 'multiple_columns', 'another_column', ],
-         );
-
-  $colgroup = new DBIx::DBSchema::ColGroup ( \@lol );
-
-  print join("\n", $colgroup->sql_list), "\n";
-
-Will print:
-
-  single_column
-  multiple_columns, another_column
-
-=cut
-
-sub sql_list { #returns a flat list of comman-separates lists (for sql)
-  my($self)=@_;
-   grep $_ ne '', map join(', ', @{$_}), @{$self->{'lol'}};
-}
-
-=item singles
-
-Returns a flat list of all single item lists.
-
-=cut
-
-sub singles { #returns single-field groups as a flat list
-  my($self)=@_;
-  #map ${$_}[0], grep scalar(@{$_}) == 1, @{$self->{'lol'}};
-  map { 
-    ${$_}[0] =~ /^(\w+)$/
-      #aah!
-      or die "Illegal column ", ${$_}[0], " in colgroup!";
-    $1;
-  } grep scalar(@{$_}) == 1, @{$self->{'lol'}};
-}
-
-=back
-
-=head1 AUTHOR
-
-Ivan Kohler <ivan-dbix-dbschema@420.am>
-
-=head1 COPYRIGHT
-
-Copyright (c) 2000 Ivan Kohler
-Copyright (c) 2000 Mail Abuse Prevention System LLC
-All rights reserved.
-This program is free software; you can redistribute it and/or modify it under
-the same terms as Perl itself.
-
-=head1 BUGS
-
-=head1 SEE ALSO
-
-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
-
-1;
-
diff --git a/DBSchema/ColGroup/Index.pm b/DBSchema/ColGroup/Index.pm
deleted file mode 100644
index f26eea7..0000000
--- a/DBSchema/ColGroup/Index.pm
+++ /dev/null
@@ -1,37 +0,0 @@
-package DBIx::DBSchema::ColGroup::Index;
-
-use strict;
-use vars qw(@ISA);
-use DBIx::DBSchema::ColGroup;
-
-@ISA=qw(DBIx::DBSchema::ColGroup);
-
-=head1 NAME
-
-DBIx::DBSchema::ColGroup::Index - Index column group object
-
-=head1 SYNOPSIS
-
-  use DBIx::DBSchema::ColGroup::Index;
-
-    # see DBIx::DBSchema::ColGroup methods
-
-=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::Index objects represent the (non-unique) indices of a
-database table (L<DBIx::DBSchema::Table>).  DBIx::DBSchema::ColGroup::Index
-inherits from DBIx::DBSchema::ColGroup.
-
-=head1 SEE ALSO
-
-L<DBIx::DBSchema::ColGroup>, L<DBIx::DBSchema::ColGroup::Unique>,
-L<DBIx::DBSchema::Table>, L<DBIx::DBSchema>, L<FS::Record>
-
-=cut
-
-1;
-
diff --git a/DBSchema/ColGroup/Unique.pm b/DBSchema/ColGroup/Unique.pm
deleted file mode 100644
index 5f98e3c..0000000
--- a/DBSchema/ColGroup/Unique.pm
+++ /dev/null
@@ -1,38 +0,0 @@
-package DBIx::DBSchema::ColGroup::Unique;
-
-use strict;
-use vars qw(@ISA);
-use DBIx::DBSchema::ColGroup;
-
-@ISA=qw(DBIx::DBSchema::ColGroup);
-
-=head1 NAME
-
-DBIx::DBSchema::ColGroup::Unique - Unique column group object
-
-=head1 SYNOPSIS
-
-  use DBIx::DBSchema::ColGroup::Unique;
-
-  # see DBIx::DBSchema::ColGroup methods
-
-=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::Unique objects represent the unique indices of a
-database table (L<DBIx::DBSchema::Table>).  DBIx::DBSchema::ColGroup:Unique
-inherits from DBIx::DBSchema::ColGroup.
-
-=head1 SEE ALSO
-
-L<DBIx::DBSchema::ColGroup>,  L<DBIx::DBSchema::ColGroup::Index>,
-L<DBIx::DBSchema::Table>, L<DBIx::DBSchema>, L<FS::Record>
-
-=cut
-
-1;
-
-
diff --git a/debian/changelog b/debian/changelog
index 8c74256..0f24ad3 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,4 +1,10 @@
-libdbix-dbschema-perl (0.41~01-1) UNRELEASED; urgency=low
+libdbix-dbschema-perl (0.42~01-1) UNRELEASED; urgency=low
+
+  * new upstream (test) release
+
+ -- Ivan Kohler <ivan-debian@420.am>  Sat, 26 Oct 2013 13:32:11 -0700
+
+libdbix-dbschema-perl (0.41~01-1) unstable; urgency=low
 
   * new upstream (test) release
   * Modernize deb packaging