projects
/
DBIx-DBSchema.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
overhaul of index representation: indices (both normal and unique) are now named...
[DBIx-DBSchema.git]
/
DBSchema
/
Column.pm
diff --git
a/DBSchema/Column.pm
b/DBSchema/Column.pm
index
17c6bdb
..
5f0d7d1
100644
(file)
--- a/
DBSchema/Column.pm
+++ b/
DBSchema/Column.pm
@@
-1,15
+1,11
@@
package DBIx::DBSchema::Column;
use strict;
package DBIx::DBSchema::Column;
use strict;
-use vars qw(@ISA $VERSION);
-#use Carp;
-#use Exporter;
+use vars qw($VERSION);
+use Carp;
use DBIx::DBSchema::_util qw(_load_driver _dbh);
use DBIx::DBSchema::_util qw(_load_driver _dbh);
-#@ISA = qw(Exporter);
-@ISA = qw();
-
-$VERSION = '0.08';
+$VERSION = '0.09';
=head1 NAME
=head1 NAME
@@
-89,6
+85,10
@@
sub new {
if ( ref($_[0]) ) {
$self = shift;
} else {
if ( ref($_[0]) ) {
$self = shift;
} else {
+ #carp "Old-style $class creation without named parameters is deprecated!";
+ #croak "FATAL: old-style $class creation no longer supported;".
+ # " use named parameters";
+
$self = { map { $_ => shift } qw(name type null length default local) };
}
$self = { map { $_ => shift } qw(name type null length default local) };
}
@@
-527,6
+527,9
@@
the same terms as Perl itself.
=head1 BUGS
=head1 BUGS
+The new() method should warn that
+"Old-style $class creation without named parameters is deprecated!"
+
Better documentation is needed for sql_add_column
line() and sql_add_column() hav database-specific foo that should be abstracted
Better documentation is needed for sql_add_column
line() and sql_add_column() hav database-specific foo that should be abstracted