X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FVersioned.pm;h=50cae7edf294babf6681245a65079ab655c20d84;hb=8c60e1a7be16f71332b2efa55a3ee211e8384bce;hp=4e92def8abb4fe734fd512fbe05fb3f1033ca096;hpb=341d5edefa34c7cdfee74be00eba9cd44ad2b7c4;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Schema/Versioned.pm b/lib/DBIx/Class/Schema/Versioned.pm index 4e92def..50cae7e 100644 --- a/lib/DBIx/Class/Schema/Versioned.pm +++ b/lib/DBIx/Class/Schema/Versioned.pm @@ -70,12 +70,12 @@ DBIx::Class::Schema::Versioned - DBIx::Class::Schema plugin for Schema upgrades =head1 SYNOPSIS - package Library::Schema; + package MyApp::Schema; use base qw/DBIx::Class::Schema/; our $VERSION = 0.001; - # load Library::Schema::CD, Library::Schema::Book, Library::Schema::DVD + # load MyApp::Schema::CD, MyApp::Schema::Book, MyApp::Schema::DVD __PACKAGE__->load_classes(qw/CD Book DVD/); __PACKAGE__->load_components(qw/Schema::Versioned/); @@ -308,7 +308,7 @@ sub upgrade # here to be sure. # XXX - just fix it $self->storage->sqlt_type; - + my $upgrade_file = $self->ddl_filename( $self->storage->sqlt_type, $self->schema_version, @@ -520,10 +520,8 @@ sub _create_db_to_schema_diff { return; } - eval 'require SQL::Translator "0.09003"'; - if ($@) { - $self->throw_exception("SQL::Translator 0.09003 required"); - } + $self->throw_exception($self->_sqlt_version_error) + if (not $self->_sqlt_version_ok); my $db_tr = SQL::Translator->new({ add_drop_table => 1,