From: Arthur Axel 'fREW' Schmidt Date: Wed, 4 May 2011 14:56:46 +0000 (-0500) Subject: Release 0.11008 X-Git-Tag: v0.11008^0 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3e814930c497a91b80e91a7ae7a2e51178b47c48;p=dbsrgits%2FSQL-Translator.git Release 0.11008 --- diff --git a/Changes b/Changes index 2e06287..ad6a2c2 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,6 @@ +# ---------------------------------------------------------- +# 0.11008 2011-05-04 +# ---------------------------------------------------------- * Correctly create and parse FK constraints in SQLite * Correct postgis geography type insertion and linebreak fix for multiple geometry/geography columns @@ -8,7 +11,7 @@ * Quote everything in SQL Server * Turn off constraints before dropping tables in SQL Server * Make true unique constraints if needed in SQL Server -* Fixed Producer::PostgresSQL to output array type after type size, +* Fixed Producer::PostgresSQL to output array type after type size, i.e. varchar(64)[] rather than varchar[](64) # ---------------------------------------------------------- diff --git a/lib/SQL/Translator.pm b/lib/SQL/Translator.pm index 5004931..cec3a07 100644 --- a/lib/SQL/Translator.pm +++ b/lib/SQL/Translator.pm @@ -24,7 +24,7 @@ use base 'Class::Base'; require 5.005; -$VERSION = '0.11007'; +$VERSION = '0.11008'; $DEBUG = 0 unless defined $DEBUG; $ERROR = ""; @@ -122,10 +122,10 @@ sub init { $self->trace( $config->{'trace'} ); $self->validate( $config->{'validate'} ); - - $self->quote_table_names( (defined $config->{'quote_table_names'} + + $self->quote_table_names( (defined $config->{'quote_table_names'} ? $config->{'quote_table_names'} : 1) ); - $self->quote_field_names( (defined $config->{'quote_field_names'} + $self->quote_field_names( (defined $config->{'quote_field_names'} ? $config->{'quote_field_names'} : 1) ); return $self; @@ -621,8 +621,8 @@ sub _args { # ---------------------------------------------------------------------- # Does the get/set work for parser and producer. e.g. -# return $self->_tool({ -# name => 'producer', +# return $self->_tool({ +# name => 'producer', # path => "SQL::Translator::Producer", # default_sub => "produce", # }, @_); @@ -635,7 +635,7 @@ sub _tool { my $path = $args->{path}; my $default_sub = $args->{default_sub}; my $tool = shift; - + # passed an anonymous subroutine reference if (isa($tool, 'CODE')) { $self->{$name} = $tool; @@ -689,7 +689,7 @@ sub _list { my $uctype = ucfirst lc $type; # - # First find all the directories where SQL::Translator + # First find all the directories where SQL::Translator # parsers or producers (the "type") appear to live. # load("SQL::Translator::$uctype") or return (); @@ -703,13 +703,13 @@ sub _list { } # - # Now use File::File::find to look recursively in those + # Now use File::File::find to look recursively in those # directories for all the *.pm files, then present them # with the slashes turned into dashes. # my %found; - find( - sub { + find( + sub { if ( -f && m/\.pm$/ ) { my $mod = $_; $mod =~ s/\.pm$//; @@ -766,7 +766,7 @@ sub load { return $module if $INC{$file}; # Already loaded eval { require $file }; - next if $@ =~ /Can't locate $file in \@INC/; + next if $@ =~ /Can't locate $file in \@INC/; eval { $module->import() } unless $@; return __PACKAGE__->error("Error loading $name as $module : $@") if $@ && $@ !~ /"SQL::Translator::Producer" is not exported/; @@ -1009,7 +1009,7 @@ advantage is gained by passing options to the constructor. =head2 add_drop_table -Toggles whether or not to add "DROP TABLE" statements just before the +Toggles whether or not to add "DROP TABLE" statements just before the create definitions. =head2 quote_table_names @@ -1033,9 +1033,9 @@ The C method is an accessor/mutator, used to retrieve or define what subroutine is called to produce the output. A subroutine defined as a producer will be invoked as a function (I) and passed its container C instance, which it should -call the C method on, to get the C +call the C method on, to get the C generated by the parser. It is expected that the function transform the -schema structure to a string. The C instance is also useful +schema structure to a string. The C instance is also useful for informational purposes; for example, the type of the parser can be retrieved using the C method, and the C and C methods can be called when needed. @@ -1302,7 +1302,7 @@ Please use L for reporting bugs. =head1 PRAISE -If you find this module useful, please use +If you find this module useful, please use L to rate it. =head1 SEE ALSO