Revision history for Perl extension DBIx::Class::Schema::Loader
+0.05000 2010-02-01 09:24:24
- better data_type, default_value and size for Sybase
- added 'generate_pod' option, defaults to on
- added 'pod_comment_mode' and 'pod_comment_spillover_length' to
# Always remember to do all digits for the version even if they're 0
# i.e. first release of 0.XX *must* be 0.XX000. This avoids fBSD ports
# brain damage and presumably various other packaging systems too
-our $VERSION = '0.04999_14';
+our $VERSION = '0.05000';
__PACKAGE__->mk_group_accessors('inherited', qw/
_loader_args
use Class::Unload;
require DBIx::Class;
-our $VERSION = '0.04999_14';
+our $VERSION = '0.05000';
__PACKAGE__->mk_group_ro_accessors('simple', qw/
schema
use Class::C3;
use Carp::Clan qw/^DBIx::Class/;
-our $VERSION = '0.04999_14';
+our $VERSION = '0.05000';
=head1 NAME
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.04999_14';
+our $VERSION = '0.05000';
=head1 NAME
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.04999_14';
+our $VERSION = '0.05000';
=head1 NAME
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.04999_14';
+our $VERSION = '0.05000';
=head1 NAME
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.04999_14';
+our $VERSION = '0.05000';
=head1 NAME
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.04999_14';
+our $VERSION = '0.05000';
=head1 NAME
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.04999_14';
+our $VERSION = '0.05000';
=head1 NAME
use Text::Balanced qw( extract_bracketed );
use Class::C3;
-our $VERSION = '0.04999_14';
+our $VERSION = '0.05000';
=head1 NAME
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.04999_14';
+our $VERSION = '0.05000';
=head1 NAME
}
}
-# XXX we need to handle "binary precision" for FLOAT(X) but I don't know what it means
+# XXX we need to handle "binary precision" for FLOAT(X)
+# (see: http://msdn.microsoft.com/en-us/library/aa258876(SQL.80).aspx )
if (my $data_type = $res->{data_type}) {
if ($data_type =~ /^(?:text|unitext|image|bigint|int|integer|smallint|tinyint|real|double|double precision|float|date|time|datetime|smalldatetime|money|smallmoney|timestamp|bit)\z/i) {
delete $res->{size};
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.04999_14';
+our $VERSION = '0.05000';
=head1 NAME
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.04999_14';
+our $VERSION = '0.05000';
=head1 NAME
package DBIx::Class::Schema::Loader::DBI::Writing;
use strict;
-our $VERSION = '0.04999_14';
+our $VERSION = '0.05000';
# Empty. POD only.
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.04999_14';
+our $VERSION = '0.05000';
=head1 NAME
use Carp::Clan qw/^DBIx::Class/;
use Lingua::EN::Inflect::Number ();
-our $VERSION = '0.04999_14';
+our $VERSION = '0.05000';
=head1 NAME
},
# Test data types, see http://ispirer.com/wiki/sqlways/sybase/data-types
# XXX handle FLOAT(P) at some point
+# ( http://msdn.microsoft.com/en-us/library/aa258876(SQL.80).aspx )
q{
CREATE TABLE sybase_loader_test2 (
id INTEGER IDENTITY NOT NULL PRIMARY KEY,