Hello community, here is the log from the commit of package perl-DBIx-Class-DeploymentHandler for openSUSE:Factory checked in at 2015-04-16 14:12:49 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-DBIx-Class-DeploymentHandler (Old) and /work/SRC/openSUSE:Factory/.perl-DBIx-Class-DeploymentHandler.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-DBIx-Class-DeploymentHandler" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-DBIx-Class-DeploymentHandler/perl-DBIx-Class-DeploymentHandler.changes 2014-04-04 18:26:14.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-DBIx-Class-DeploymentHandler.new/perl-DBIx-Class-DeploymentHandler.changes 2015-04-16 14:12:51.000000000 +0200 @@ -1,0 +2,31 @@ +Wed Apr 15 14:11:53 UTC 2015 - co...@suse.com + +- updated to 0.002215 + see /usr/share/doc/packages/perl-DBIx-Class-DeploymentHandler/Changes + + 0.002215 2015-01-10 13:58:10-06:00 America/Chicago + - Improve documentation for how to portably create indices + (Thanks Meredith Howard for the ideas!) + + 0.002214 2014-12-21 11:53:20-06:00 America/Chicago + - Fix inconsistency of what files get run when `ignore_ddl` is set. + To be clear, if in the past you generated DDL and *also* hand wrote DDL, + `ignore_ddl` would ignore both, though the intention was only to ignore + generated DDL. + (Thanks Lianna Eeftinck for very detailed bug report at GH#20!) + - Include the filename of the script being run in case of error + - Add some documentation for how to portably create indices + - Fix doc bug stating that install calls initialize + (Thanks Gavin Shelley! Fixes GH#13) + - Minor Pod Fixes (Thanks Renee B and Pär Karlsson!) + + 0.002213 2014-12-03 08:44:10-06:00 America/Chicago + - Fix some POD formatting + + 0.002212 2014-10-11 15:04:22-05:00 America/Chicago + - Add some nice documentation on overall structure + + 0.002211 2014-05-15 20:06:48-05:00 America/Chicago + - Fix some missing ABSTRACTs (Fixes GH#22, thanks Gregor Herrmann!) + +------------------------------------------------------------------- Old: ---- DBIx-Class-DeploymentHandler-0.002210.tar.gz New: ---- DBIx-Class-DeploymentHandler-0.002215.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-DBIx-Class-DeploymentHandler.spec ++++++ --- /var/tmp/diff_new_pack.VV9q5d/_old 2015-04-16 14:12:51.000000000 +0200 +++ /var/tmp/diff_new_pack.VV9q5d/_new 2015-04-16 14:12:51.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-DBIx-Class-DeploymentHandler # -# Copyright (c) 2014 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,7 +17,7 @@ Name: perl-DBIx-Class-DeploymentHandler -Version: 0.002210 +Version: 0.002215 Release: 0 %define cpan_name DBIx-Class-DeploymentHandler Summary: Extensible DBIx::Class deployment @@ -49,8 +49,6 @@ BuildRequires: perl(autodie) BuildRequires: perl(namespace::autoclean) BuildRequires: perl(parent) >= 0.225 -# MANUAL -BuildRequires: perl(YAML) Requires: perl(Carp::Clan) Requires: perl(Context::Preserve) >= 0.01 Requires: perl(DBIx::Class) >= 0.08121 @@ -123,6 +121,6 @@ %files -f %{name}.files %defattr(-,root,root,755) -%doc Changes cpanfile LICENSE README weaver.ini +%doc Changes LICENSE README TODO %changelog ++++++ DBIx-Class-DeploymentHandler-0.002210.tar.gz -> DBIx-Class-DeploymentHandler-0.002215.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/Changes new/DBIx-Class-DeploymentHandler-0.002215/Changes --- old/DBIx-Class-DeploymentHandler-0.002210/Changes 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/Changes 2015-01-10 20:58:15.000000000 +0100 @@ -1,5 +1,30 @@ Revision history for DBIx-Class-DeploymentHandler +0.002215 2015-01-10 13:58:10-06:00 America/Chicago + - Improve documentation for how to portably create indices + (Thanks Meredith Howard for the ideas!) + +0.002214 2014-12-21 11:53:20-06:00 America/Chicago + - Fix inconsistency of what files get run when `ignore_ddl` is set. + To be clear, if in the past you generated DDL and *also* hand wrote DDL, + `ignore_ddl` would ignore both, though the intention was only to ignore + generated DDL. + (Thanks Lianna Eeftinck for very detailed bug report at GH#20!) + - Include the filename of the script being run in case of error + - Add some documentation for how to portably create indices + - Fix doc bug stating that install calls initialize + (Thanks Gavin Shelley! Fixes GH#13) + - Minor Pod Fixes (Thanks Renee B and Pär Karlsson!) + +0.002213 2014-12-03 08:44:10-06:00 America/Chicago + - Fix some POD formatting + +0.002212 2014-10-11 15:04:22-05:00 America/Chicago + - Add some nice documentation on overall structure + +0.002211 2014-05-15 20:06:48-05:00 America/Chicago + - Fix some missing ABSTRACTs (Fixes GH#22, thanks Gregor Herrmann!) + 0.002210 2014-01-31 09:35:27 America/Chicago - Make source order stable to avoid non-changes in git (fixes RT#92580) - Ensure that sqltargs are passed to deploy when ignore_ddl is set diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/LICENSE new/DBIx-Class-DeploymentHandler-0.002215/LICENSE --- old/DBIx-Class-DeploymentHandler-0.002210/LICENSE 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/LICENSE 2015-01-10 20:58:15.000000000 +0100 @@ -1,4 +1,4 @@ -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. @@ -12,7 +12,7 @@ --- The GNU General Public License, Version 1, February 1989 --- -This software is Copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is Copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software, licensed under: @@ -22,7 +22,7 @@ Version 1, February 1989 Copyright (C) 1989 Free Software Foundation, Inc. - 51 Franklin St, Suite 500, Boston, MA 02110-1335 USA + 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. @@ -272,7 +272,7 @@ --- The Artistic License 1.0 --- -This software is Copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is Copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software, licensed under: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/MANIFEST new/DBIx-Class-DeploymentHandler-0.002215/MANIFEST --- old/DBIx-Class-DeploymentHandler-0.002210/MANIFEST 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/MANIFEST 2015-01-10 20:58:15.000000000 +0100 @@ -1,3 +1,4 @@ +# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.020. Changes LICENSE MANIFEST @@ -5,6 +6,7 @@ META.yml Makefile.PL README +TODO cpanfile dist.ini lib/DBIx/Class/DeploymentHandler.pm @@ -47,6 +49,8 @@ t/deploy_methods/script-helpers.t t/deploy_methods/sql_translator.t t/deploy_methods/sql_translator_deprecated.t +t/deploy_methods/sql_translator_errors.t +t/deploy_methods/sql_translator_ignore_ddl.t t/deploy_methods/sql_translator_protoschema_transform.t t/lib/DBICDHTest.pm t/lib/DBICVersion_v1.pm diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/META.json new/DBIx-Class-DeploymentHandler-0.002215/META.json --- old/DBIx-Class-DeploymentHandler-0.002210/META.json 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/META.json 2015-01-10 20:58:15.000000000 +0100 @@ -4,7 +4,7 @@ "Arthur Axel \"fREW\" Schmidt <frioux+c...@gmail.com>" ], "dynamic_config" : 0, - "generated_by" : "Dist::Zilla version 5.006, CPAN::Meta::Converter version 2.120921", + "generated_by" : "Dist::Zilla version 5.020, CPAN::Meta::Converter version 2.142060", "license" : [ "perl_5" ], @@ -16,7 +16,7 @@ "prereqs" : { "configure" : { "requires" : { - "ExtUtils::MakeMaker" : "6.30" + "ExtUtils::MakeMaker" : "0" } }, "develop" : { @@ -67,6 +67,6 @@ "web" : "https://github.com/frioux/DBIx-Class-DeploymentHandler" } }, - "version" : "0.002210" + "version" : "0.002215" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/META.yml new/DBIx-Class-DeploymentHandler-0.002215/META.yml --- old/DBIx-Class-DeploymentHandler-0.002210/META.yml 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/META.yml 2015-01-10 20:58:15.000000000 +0100 @@ -1,42 +1,42 @@ --- abstract: 'Extensible DBIx::Class deployment' author: - - "Arthur Axel \"fREW\" Schmidt <frioux+c...@gmail.com>" + - 'Arthur Axel "fREW" Schmidt <frioux+c...@gmail.com>' build_requires: - DBD::SQLite: 1.35 - File::Temp: 0 - Test::Fatal: 0.006 - Test::More: 0.88 - Test::Requires: 0.06 - aliased: 0 + DBD::SQLite: '1.35' + File::Temp: '0' + Test::Fatal: '0.006' + Test::More: '0.88' + Test::Requires: '0.06' + aliased: '0' configure_requires: - ExtUtils::MakeMaker: 6.30 + ExtUtils::MakeMaker: '0' dynamic_config: 0 -generated_by: 'Dist::Zilla version 5.006, CPAN::Meta::Converter version 2.120921' +generated_by: 'Dist::Zilla version 5.020, CPAN::Meta::Converter version 2.142060' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: 1.4 + version: '1.4' name: DBIx-Class-DeploymentHandler requires: - Carp: 0 - Carp::Clan: 0 - Context::Preserve: 0.01 - DBIx::Class: 0.08121 - Log::Contextual: 0.005005 - Moo: 1.003 - Moose: 1 - MooseX::Role::Parameterized: 0.18 - Path::Class: 0.26 - SQL::Translator: 0.11005 - Sub::Exporter::Progressive: 0 - Text::Brew: 0.02 - Try::Tiny: 0 - autodie: 0 - namespace::autoclean: 0 - parent: 0.225 + Carp: '0' + Carp::Clan: '0' + Context::Preserve: '0.01' + DBIx::Class: '0.08121' + Log::Contextual: '0.005005' + Moo: '1.003' + Moose: '1' + MooseX::Role::Parameterized: '0.18' + Path::Class: '0.26' + SQL::Translator: '0.11005' + Sub::Exporter::Progressive: '0' + Text::Brew: '0.02' + Try::Tiny: '0' + autodie: '0' + namespace::autoclean: '0' + parent: '0.225' resources: bugtracker: https://github.com/frioux/DBIx-Class-DeploymentHandler/issues homepage: https://github.com/frioux/DBIx-Class-DeploymentHandler repository: https://github.com/frioux/DBIx-Class-DeploymentHandler.git -version: 0.002210 +version: '0.002215' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/Makefile.PL new/DBIx-Class-DeploymentHandler-0.002215/Makefile.PL --- old/DBIx-Class-DeploymentHandler-0.002210/Makefile.PL 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/Makefile.PL 2015-01-10 20:58:15.000000000 +0100 @@ -1,19 +1,19 @@ +# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v5.020. use strict; use warnings; -use ExtUtils::MakeMaker 6.30; +use ExtUtils::MakeMaker ; my %WriteMakefileArgs = ( "ABSTRACT" => "Extensible DBIx::Class deployment", "AUTHOR" => "Arthur Axel \"fREW\" Schmidt <frioux+cpan\@gmail.com>", - "BUILD_REQUIRES" => {}, "CONFIGURE_REQUIRES" => { - "ExtUtils::MakeMaker" => "6.30" + "ExtUtils::MakeMaker" => 0 }, "DISTNAME" => "DBIx-Class-DeploymentHandler", "EXE_FILES" => [], @@ -45,7 +45,7 @@ "Test::Requires" => "0.06", "aliased" => 0 }, - "VERSION" => "0.002210", + "VERSION" => "0.002215", "test" => { "TESTS" => "t/*.t t/bugs/*.t t/deploy_methods/*.t t/version_handlers/*.t t/version_storages/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/README new/DBIx-Class-DeploymentHandler-0.002215/README --- old/DBIx-Class-DeploymentHandler-0.002210/README 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/README 2015-01-10 20:58:15.000000000 +0100 @@ -26,6 +26,7 @@ sql_translator_args => { add_drop_table => 0 }, }); + $dh->prepare_deploy; $dh->prepare_upgrade({ from_version => 1, to_version => 2, @@ -74,6 +75,47 @@ DBIx::Class::DeploymentHandler::VersionStorage::Standard, and DBIx::Class::DeploymentHandler::WithReasonableDefaults. +WHY IS THIS SO WEIRD + "DBIx::Class::DeploymentHandler" has a strange structure. The gist is + that it delegates to three small objects that are proxied to via + interface roles that then create the illusion of one large, monolithic + object. Here is a diagram that might help: + + +------------+ + | | + +------------+ Deployment +-----------+ + | | Handler | | + | | | | + | +-----+------+ | + | | | + | | | + : : : + v v v + /-=-------\ /-=-------\ /-=----------\ + | | | | | | (interface roles) + | Handles | | Handles | | Handles | + | Version | | Deploy | | Versioning | + | Storage | | | | | + | | \-+--+--+-/ \-+---+---+--/ + \-+--+--+-/ | | | | | | + | | | | | | | | | + | | | | | | | | | + v v v v v v v v v + +----------+ +--------+ +-----------+ + | | | | | | (implementations) + | Version | | Deploy | | Version | + | Storage | | Method | | Handler | + | Standard | | SQLT | | Monotonic | + | | | | | | + +----------+ +--------+ +-----------+ + + The nice thing about this is that we have well defined interfaces for + the objects that comprise the "DeploymentHandler", the smaller objects + can be tested in isolation, and the smaller objects can even be swapped + in easily. But the real win is that you can subclass the + "DeploymentHandler" without knowing about the underlying delegation; you + just treat it like normal Perl and write methods that do what you want. + THIS SUCKS You started your project and weren't using "DBIx::Class::DeploymentHandler"? Lucky for you I had you in mind when I @@ -149,7 +191,7 @@ Arthur Axel "fREW" Schmidt <frioux+c...@gmail.com> COPYRIGHT AND LICENSE - This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. + This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/TODO new/DBIx-Class-DeploymentHandler-0.002215/TODO --- old/DBIx-Class-DeploymentHandler-0.002210/TODO 1970-01-01 01:00:00.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/TODO 2015-01-10 20:58:15.000000000 +0100 @@ -0,0 +1,4 @@ + * Serialize generated DDL (https://github.com/frioux/DBIx-Class-DeploymentHandler/issues/11) + * Refactor code to only optionally require DBIC (https://github.com/frioux/DBIx-Class-DeploymentHandler/issues/10) + * Factor out MigrationStorage (https://github.com/frioux/DBIx-Class-DeploymentHandler/issues/9) + * Remove the Deprecated options and add Migrations (https://github.com/frioux/DBIx-Class-DeploymentHandler/issues/31) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/dist.ini new/DBIx-Class-DeploymentHandler-0.002215/dist.ini --- old/DBIx-Class-DeploymentHandler-0.002210/dist.ini 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/dist.ini 2015-01-10 20:58:15.000000000 +0100 @@ -2,7 +2,7 @@ author = Arthur Axel "fREW" Schmidt <frioux+c...@gmail.com> license = Perl_5 copyright_holder = Arthur Axel "fREW" Schmidt -version = 0.002210 +version = 0.002215 [NextRelease] [@Git] @@ -11,7 +11,7 @@ issues = 1 [MetaJSON] -[PodWeaver] +[PickyPodWeaver] [PkgVersion] [ReadmeFromPod] [PodSyntaxTests] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/Cookbook/CustomResultSource.pod new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/Cookbook/CustomResultSource.pod --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/Cookbook/CustomResultSource.pod 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/Cookbook/CustomResultSource.pod 2015-01-10 20:58:15.000000000 +0100 @@ -1,4 +1,6 @@ package DBIx::Class::DeploymentHandler::Cookbook::CustomResultSource; +$DBIx::Class::DeploymentHandler::Cookbook::CustomResultSource::VERSION = '0.002215'; +# ABSTRACT: Customize how your DBICDH versions are stored __END__ @@ -6,7 +8,7 @@ =head1 NAME -DBIx::Class::DeploymentHandler::Cookbook::CustomResultSource +DBIx::Class::DeploymentHandler::Cookbook::CustomResultSource - Customize how your DBICDH versions are stored =head1 DESCRIPTION @@ -114,18 +116,13 @@ or DatabaseToSchemaVersions, as these handle version numbers as strings instead of integers. -=head1 NAME - -DBIx::Class::DeploymentHandler::Cookbook::CustomResultSource - Customize how -your DBICDH versions are stored - =head1 AUTHOR Arthur Axel "fREW" Schmidt <frioux+c...@gmail.com> =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/Dad.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/Dad.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/Dad.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/Dad.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,8 +1,5 @@ package DBIx::Class::DeploymentHandler::Dad; -{ - $DBIx::Class::DeploymentHandler::Dad::VERSION = '0.002210'; -} - +$DBIx::Class::DeploymentHandler::Dad::VERSION = '0.002215'; # ABSTRACT: Parent class for DeploymentHandlers use Moose; @@ -266,7 +263,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator/Deprecated.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator/Deprecated.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator/Deprecated.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator/Deprecated.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,7 +1,5 @@ package DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::Deprecated; -{ - $DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::Deprecated::VERSION = '0.002210'; -} +$DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::Deprecated::VERSION = '0.002215'; use Moose; # ABSTRACT: (DEPRECATED) Use this if you are stuck in the past @@ -127,7 +125,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator/ScriptHelpers.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator/ScriptHelpers.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator/ScriptHelpers.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator/ScriptHelpers.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,7 +1,6 @@ package DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::ScriptHelpers; -{ - $DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::ScriptHelpers::VERSION = '0.002210'; -} +$DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::ScriptHelpers::VERSION = '0.002215'; +# ABSTRACT: CodeRef Transforms for common use-cases in DBICDH Migrations use strict; use warnings; @@ -102,7 +101,7 @@ =head1 NAME -DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::ScriptHelpers +DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::ScriptHelpers - CodeRef Transforms for common use-cases in DBICDH Migrations =head1 SYNOPSIS @@ -158,7 +157,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,7 +1,5 @@ package DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator; -{ - $DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::VERSION = '0.002210'; -} +$DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::VERSION = '0.002215'; use Moose; # ABSTRACT: Manage your SQL and Perl migrations in nicely laid out directories @@ -103,20 +101,11 @@ my $common_any = dir( $base_dir, '_common', $prefix, '_any' ); - my $dir; - if (-d $main) { - $dir = dir($main, $prefix, join q(-), @{$versions}) - } else { - if ($self->ignore_ddl) { - return [] - } else { - croak "$main does not exist; please write/generate some SQL" - } - } my $dir_any = dir($main, $prefix, '_any'); my %files; try { + my $dir = dir( $main, $prefix, join q(-), @{$versions} ); opendir my($dh), $dir; %files = map { $_ => "$dir/$_" } @@ -286,11 +275,16 @@ sub _run_sql { my ($self, $filename) = @_; log_debug { "Running SQL from $filename" }; - return $self->_run_sql_array($self->_read_sql_file($filename)); + try { + $self->_run_sql_array($self->_read_sql_file($filename)); + } catch { + die "failed to run SQL in $filename: $_" + }; } sub _load_sandbox { my $_file = shift; + $_file = "$_file"; my $_package = $_file; $_package =~ s/([^A-Za-z0-9_])/sprintf("_%2x", ord($1))/eg; @@ -321,7 +315,11 @@ Dlog_trace { "Running Perl $_" } $fn; - $fn->($self->schema, $versions) + try { + $fn->($self->schema, $versions) + } catch { + die "failed to run Perl in $filename: $_" + }; } sub txn_do { @@ -848,65 +846,112 @@ =over 2 -=item C<_source> This directory can contain the following directories: +=item C<_source> + +This directory can contain the following directories: =over 2 -=item C<deploy> This directory merely contains directories named after schema +=item C<deploy> + +This directory merely contains directories named after schema versions, which in turn contain C<yaml> files that are serialized versions of the schema at that version. These files are not for editing by hand. =back -=item C<_preprocess_schema> This directory can contain the following -directories: +=item C<_preprocess_schema> + +This directory can contain the following directories: =over 2 -=item C<downgrade> This directory merely contains directories named after -migrations, which are of the form C<$from_version-$to_version>. Inside of -these directories you may put Perl scripts which are to return a subref -that takes the arguments C<< $from_schema, $to_schema >>, which are -L<SQL::Translator::Schema> objects. - -=item C<upgrade> This directory merely contains directories named after -migrations, which are of the form C<$from_version-$to_version>. Inside of -these directories you may put Perl scripts which are to return a subref -that takes the arguments C<< $from_schema, $to_schema >>, which are -L<SQL::Translator::Schema> objects. +=item C<downgrade> + +This directory merely contains directories named after migrations, which are of +the form C<$from_version-$to_version>. Inside of these directories you may put +Perl scripts which are to return a subref that takes the arguments C<< +$from_schema, $to_schema >>, which are L<SQL::Translator::Schema> objects. + +=item C<upgrade> + +This directory merely contains directories named after migrations, which are of +the form C<$from_version-$to_version>. Inside of these directories you may put +Perl scripts which are to return a subref that takes the arguments C<< +$from_schema, $to_schema >>, which are L<SQL::Translator::Schema> objects. =back -=item C<$storage_type> This is a set of scripts that gets run depending on what -your storage type is. If you are not sure what your storage type is, take a -look at the producers listed for L<SQL::Translator>. Also note, C<_common> -is a special case. C<_common> will get merged into whatever other files you -already have. This directory can contain the following directories itself: +A typical usage of C<_preprocess_schema> is to define indices or other non-DBIC +type metadata. Here is an example of how one might do that: + +The following coderef could be placed in a file called +F<_preprocess_schema/1-2/001-add-user-index.pl> + + sub { + my ($from, $to) = @_; + + $to->get_table('Users')->add_index( + name => 'idx_Users_name', + fields => ['name'], + ) + } + +This would ensure that in version 2 of the schema the generated migrations +include an index on C<< Users.name >>. Frustratingly, due to the nature of +L<SQL::Translator>, you'll need to add this to each migration or it will detect +that it was left out and kindly remove the index for you. + +An alternative to the above, which is likely to be a lot less annoying, is to +define such data in your schema directly, and only change it as you need to: + + package MyApp::Schema::Result::User; + + #[...] + + sub sqlt_deploy_hook ( $self, $sqlt_table ) { + $sqlt_table->add_index(name => 'idx_Users_name', fields => [ 'name' ]); + } + +=item C<$storage_type> + +This is a set of scripts that gets run depending on what your storage type is. +If you are not sure what your storage type is, take a look at the producers +listed for L<SQL::Translator>. Also note, C<_common> is a special case. +C<_common> will get merged into whatever other files you already have. This +directory can contain the following directories itself: =over 2 -=item C<initialize> Gets run before the C<deploy> is C<deploy>ed. Has the -same structure as the C<deploy> subdirectory as well; that is, it has a -directory for each schema version. Unlike C<deploy>, C<upgrade>, and C<downgrade> -though, it can only run C<.pl> files, and the coderef in the perl files get -no arguments passed to them. - -=item C<deploy> Gets run when the schema is C<deploy>ed. Structure is a -directory per schema version, and then files are merged with C<_common> and run -in filename order. C<.sql> files are merely run, as expected. C<.pl> files are -run according to L</PERL SCRIPTS>. - -=item C<upgrade> Gets run when the schema is C<upgrade>d. Structure is a directory -per upgrade step, (for example, C<1-2> for upgrading from version 1 to version -2,) and then files are merged with C<_common> and run in filename order. -C<.sql> files are merely run, as expected. C<.pl> files are run according -to L</PERL SCRIPTS>. +=item C<initialize> + +If you are using the C<initialize> functionality, +you should call initialize() before calling C<install>. This has the same structure as the +C<deploy> subdirectory as well; that is, it has a directory for each schema +version. Unlike C<deploy>, C<upgrade>, and C<downgrade> though, it can only run +C<.pl> files, and the coderef in the perl files get no arguments passed to them. + +=item C<deploy> + +Gets run when the schema is C<deploy>ed. Structure is a directory per schema +version, and then files are merged with C<_common> and run in filename order. +C<.sql> files are merely run, as expected. C<.pl> files are run according to +L</PERL SCRIPTS>. + +=item C<upgrade> + +Gets run when the schema is C<upgrade>d. Structure is a directory per upgrade +step, (for example, C<1-2> for upgrading from version 1 to version 2,) and then +files are merged with C<_common> and run in filename order. C<.sql> files are +merely run, as expected. C<.pl> files are run according to L</PERL SCRIPTS>. + +=item C<downgrade> -=item C<downgrade> Gets run when the schema is C<downgrade>d. Structure is a directory -per downgrade step, (for example, C<2-1> for downgrading from version 2 to version +Gets run when the schema is C<downgrade>d. Structure is a directory per +downgrade step, (for example, C<2-1> for downgrading from version 2 to version 1,) and then files are merged with C<_common> and run in filename order. -C<.sql> files are merely run, as expected. C<.pl> files are run according -to L</PERL SCRIPTS>. +C<.sql> files are merely run, as expected. C<.pl> files are run according to +L</PERL SCRIPTS>. =back @@ -946,7 +991,7 @@ }) Note that the above uses -L<DBIx::Class::DeploymentHanlder::DeployMethod::SQL::Translator::ScriptHelpers/schema_from_schema_loader>. +L<DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::ScriptHelpers/schema_from_schema_loader>. Using a raw coderef is strongly discouraged as it is likely to break as you modify your schema. @@ -1011,7 +1056,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/Deprecated.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/Deprecated.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/Deprecated.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/Deprecated.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,8 +1,5 @@ package DBIx::Class::DeploymentHandler::Deprecated; -{ - $DBIx::Class::DeploymentHandler::Deprecated::VERSION = '0.002210'; -} - +$DBIx::Class::DeploymentHandler::Deprecated::VERSION = '0.002215'; # ABSTRACT: (DEPRECATED) Use this if you are stuck in the past use Moose; @@ -134,7 +131,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/HandlesDeploy.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/HandlesDeploy.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/HandlesDeploy.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/HandlesDeploy.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,7 +1,5 @@ package DBIx::Class::DeploymentHandler::HandlesDeploy; -{ - $DBIx::Class::DeploymentHandler::HandlesDeploy::VERSION = '0.002210'; -} +$DBIx::Class::DeploymentHandler::HandlesDeploy::VERSION = '0.002215'; use Moose::Role; # ABSTRACT: Interface for deploy methods @@ -147,7 +145,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/HandlesVersionStorage.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/HandlesVersionStorage.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/HandlesVersionStorage.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/HandlesVersionStorage.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,7 +1,5 @@ package DBIx::Class::DeploymentHandler::HandlesVersionStorage; -{ - $DBIx::Class::DeploymentHandler::HandlesVersionStorage::VERSION = '0.002210'; -} +$DBIx::Class::DeploymentHandler::HandlesVersionStorage::VERSION = '0.002215'; use Moose::Role; # ABSTRACT: Interface for version storage methods @@ -73,7 +71,7 @@ warn q(I can't version this database!) unless $dh->version_storage_is_installed -return true iff the version storage is installed. +return true if the version storage is installed. =head1 AUTHOR @@ -81,7 +79,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/HandlesVersioning.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/HandlesVersioning.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/HandlesVersioning.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/HandlesVersioning.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,7 +1,5 @@ package DBIx::Class::DeploymentHandler::HandlesVersioning; -{ - $DBIx::Class::DeploymentHandler::HandlesVersioning::VERSION = '0.002210'; -} +$DBIx::Class::DeploymentHandler::HandlesVersioning::VERSION = '0.002215'; use Moose::Role; # ABSTRACT: Interface for version methods @@ -147,7 +145,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/LogImporter.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/LogImporter.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/LogImporter.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/LogImporter.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,8 +1,5 @@ package DBIx::Class::DeploymentHandler::LogImporter; -{ - $DBIx::Class::DeploymentHandler::LogImporter::VERSION = '0.002210'; -} - +$DBIx::Class::DeploymentHandler::LogImporter::VERSION = '0.002215'; use warnings; use strict; @@ -16,24 +13,3 @@ } 1; - -__END__ - -=pod - -=head1 NAME - -DBIx::Class::DeploymentHandler::LogImporter - -=head1 AUTHOR - -Arthur Axel "fREW" Schmidt <frioux+c...@gmail.com> - -=head1 COPYRIGHT AND LICENSE - -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. - -This is free software; you can redistribute it and/or modify it under -the same terms as the Perl 5 programming language system itself. - -=cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/LogRouter.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/LogRouter.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/LogRouter.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/LogRouter.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,7 +1,5 @@ package DBIx::Class::DeploymentHandler::LogRouter; -{ - $DBIx::Class::DeploymentHandler::LogRouter::VERSION = '0.002210'; -} +$DBIx::Class::DeploymentHandler::LogRouter::VERSION = '0.002215'; use Moo; use DBIx::Class::DeploymentHandler::Logger; @@ -32,24 +30,3 @@ sub after_import {} 1; - -__END__ - -=pod - -=head1 NAME - -DBIx::Class::DeploymentHandler::LogRouter - -=head1 AUTHOR - -Arthur Axel "fREW" Schmidt <frioux+c...@gmail.com> - -=head1 COPYRIGHT AND LICENSE - -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. - -This is free software; you can redistribute it and/or modify it under -the same terms as the Perl 5 programming language system itself. - -=cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/Logger.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/Logger.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/Logger.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/Logger.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,8 +1,5 @@ package DBIx::Class::DeploymentHandler::Logger; -{ - $DBIx::Class::DeploymentHandler::Logger::VERSION = '0.002210'; -} - +$DBIx::Class::DeploymentHandler::Logger::VERSION = '0.002215'; use warnings; use strict; @@ -50,24 +47,3 @@ } 1; - -__END__ - -=pod - -=head1 NAME - -DBIx::Class::DeploymentHandler::Logger - -=head1 AUTHOR - -Arthur Axel "fREW" Schmidt <frioux+c...@gmail.com> - -=head1 COPYRIGHT AND LICENSE - -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. - -This is free software; you can redistribute it and/or modify it under -the same terms as the Perl 5 programming language system itself. - -=cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/Manual/CatalystIntro.pod new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/Manual/CatalystIntro.pod --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/Manual/CatalystIntro.pod 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/Manual/CatalystIntro.pod 2015-01-10 20:58:15.000000000 +0100 @@ -1,5 +1,5 @@ package DBIx::Class::DeploymentHandler::Manual::CatalystIntro - +$DBIx::Class::DeploymentHandler::Manual::CatalystIntro::VERSION = '0.002215'; # ABSTRACT: Introduction to using DBIx::Class::DeploymentHandler with a new Catalyst Project __END__ @@ -249,7 +249,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/Manual/Intro.pod new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/Manual/Intro.pod --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/Manual/Intro.pod 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/Manual/Intro.pod 2015-01-10 20:58:15.000000000 +0100 @@ -1,5 +1,5 @@ package DBIx::Class::DeploymentHandler::Manual::Intro - +$DBIx::Class::DeploymentHandler::Manual::Intro::VERSION = '0.002215'; # ABSTRACT: Introduction to DBIx::Class::DeploymentHandler __END__ @@ -204,7 +204,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/Types.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/Types.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/Types.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/Types.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,7 +1,5 @@ package DBIx::Class::DeploymentHandler::Types; -{ - $DBIx::Class::DeploymentHandler::Types::VERSION = '0.002210'; -} +$DBIx::Class::DeploymentHandler::Types::VERSION = '0.002215'; use strict; use warnings; @@ -42,7 +40,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionHandler/DatabaseToSchemaVersions.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionHandler/DatabaseToSchemaVersions.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionHandler/DatabaseToSchemaVersions.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionHandler/DatabaseToSchemaVersions.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,7 +1,5 @@ package DBIx::Class::DeploymentHandler::VersionHandler::DatabaseToSchemaVersions; -{ - $DBIx::Class::DeploymentHandler::VersionHandler::DatabaseToSchemaVersions::VERSION = '0.002210'; -} +$DBIx::Class::DeploymentHandler::VersionHandler::DatabaseToSchemaVersions::VERSION = '0.002215'; use Moose; # ABSTRACT: Go straight from Database to Schema version @@ -83,7 +81,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionHandler/ExplicitVersions.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionHandler/ExplicitVersions.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionHandler/ExplicitVersions.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionHandler/ExplicitVersions.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,7 +1,5 @@ package DBIx::Class::DeploymentHandler::VersionHandler::ExplicitVersions; -{ - $DBIx::Class::DeploymentHandler::VersionHandler::ExplicitVersions::VERSION = '0.002210'; -} +$DBIx::Class::DeploymentHandler::VersionHandler::ExplicitVersions::VERSION = '0.002215'; use Moose; # ABSTRACT: Define your own list of versions to use for migrations @@ -129,7 +127,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionHandler/Monotonic.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionHandler/Monotonic.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionHandler/Monotonic.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionHandler/Monotonic.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,7 +1,5 @@ package DBIx::Class::DeploymentHandler::VersionHandler::Monotonic; -{ - $DBIx::Class::DeploymentHandler::VersionHandler::Monotonic::VERSION = '0.002210'; -} +$DBIx::Class::DeploymentHandler::VersionHandler::Monotonic::VERSION = '0.002215'; use Moose; # ABSTRACT: Obvious version progressions @@ -95,7 +93,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated/Component.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated/Component.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated/Component.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated/Component.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,8 +1,5 @@ package DBIx::Class::DeploymentHandler::VersionStorage::Deprecated::Component; -{ - $DBIx::Class::DeploymentHandler::VersionStorage::Deprecated::Component::VERSION = '0.002210'; -} - +$DBIx::Class::DeploymentHandler::VersionStorage::Deprecated::Component::VERSION = '0.002215'; # ABSTRACT: (DEPRECATED) Attach this component to your schema to ensure you stay up to date use strict; @@ -64,7 +61,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated/VersionResult.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated/VersionResult.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated/VersionResult.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated/VersionResult.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,8 +1,5 @@ package DBIx::Class::DeploymentHandler::VersionStorage::Deprecated::VersionResult; -{ - $DBIx::Class::DeploymentHandler::VersionStorage::Deprecated::VersionResult::VERSION = '0.002210'; -} - +$DBIx::Class::DeploymentHandler::VersionStorage::Deprecated::VersionResult::VERSION = '0.002215'; # ABSTRACT: (DEPRECATED) The old way to store versions in the database use strict; @@ -54,7 +51,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated/VersionResultSet.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated/VersionResultSet.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated/VersionResultSet.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated/VersionResultSet.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,8 +1,5 @@ package DBIx::Class::DeploymentHandler::VersionStorage::Deprecated::VersionResultSet; -{ - $DBIx::Class::DeploymentHandler::VersionStorage::Deprecated::VersionResultSet::VERSION = '0.002210'; -} - +$DBIx::Class::DeploymentHandler::VersionStorage::Deprecated::VersionResultSet::VERSION = '0.002215'; # ABSTRACT: (DEPRECATED) Predefined searches to find what you want from the version storage use strict; @@ -87,7 +84,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,7 +1,5 @@ package DBIx::Class::DeploymentHandler::VersionStorage::Deprecated; -{ - $DBIx::Class::DeploymentHandler::VersionStorage::Deprecated::VERSION = '0.002210'; -} +$DBIx::Class::DeploymentHandler::VersionStorage::Deprecated::VERSION = '0.002215'; use Moose; use DBIx::Class::DeploymentHandler::LogImporter ':log'; @@ -100,7 +98,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard/Component.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard/Component.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard/Component.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard/Component.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,8 +1,5 @@ package DBIx::Class::DeploymentHandler::VersionStorage::Standard::Component; -{ - $DBIx::Class::DeploymentHandler::VersionStorage::Standard::Component::VERSION = '0.002210'; -} - +$DBIx::Class::DeploymentHandler::VersionStorage::Standard::Component::VERSION = '0.002215'; # ABSTRACT: Attach this component to your schema to ensure you stay up to date use strict; @@ -57,7 +54,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard/VersionResult.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard/VersionResult.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard/VersionResult.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard/VersionResult.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,8 +1,5 @@ package DBIx::Class::DeploymentHandler::VersionStorage::Standard::VersionResult; -{ - $DBIx::Class::DeploymentHandler::VersionStorage::Standard::VersionResult::VERSION = '0.002210'; -} - +$DBIx::Class::DeploymentHandler::VersionStorage::Standard::VersionResult::VERSION = '0.002215'; # ABSTRACT: The typical way to store versions in the database use strict; @@ -55,7 +52,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard/VersionResultSet.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard/VersionResultSet.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard/VersionResultSet.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard/VersionResultSet.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,8 +1,5 @@ package DBIx::Class::DeploymentHandler::VersionStorage::Standard::VersionResultSet; -{ - $DBIx::Class::DeploymentHandler::VersionStorage::Standard::VersionResultSet::VERSION = '0.002210'; -} - +$DBIx::Class::DeploymentHandler::VersionStorage::Standard::VersionResultSet::VERSION = '0.002215'; # ABSTRACT: Predefined searches to find what you want from the version storage use strict; @@ -53,7 +50,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,7 +1,5 @@ package DBIx::Class::DeploymentHandler::VersionStorage::Standard; -{ - $DBIx::Class::DeploymentHandler::VersionStorage::Standard::VERSION = '0.002210'; -} +$DBIx::Class::DeploymentHandler::VersionStorage::Standard::VERSION = '0.002215'; use Moose; use DBIx::Class::DeploymentHandler::LogImporter ':log'; @@ -69,7 +67,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/WithApplicatorDumple.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/WithApplicatorDumple.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/WithApplicatorDumple.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/WithApplicatorDumple.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,7 +1,5 @@ package DBIx::Class::DeploymentHandler::WithApplicatorDumple; -{ - $DBIx::Class::DeploymentHandler::WithApplicatorDumple::VERSION = '0.002210'; -} +$DBIx::Class::DeploymentHandler::WithApplicatorDumple::VERSION = '0.002215'; use MooseX::Role::Parameterized; use Module::Runtime 'use_module'; use namespace::autoclean; @@ -73,22 +71,3 @@ # vim: ts=2 sw=2 expandtab __END__ - -=pod - -=head1 NAME - -DBIx::Class::DeploymentHandler::WithApplicatorDumple - -=head1 AUTHOR - -Arthur Axel "fREW" Schmidt <frioux+c...@gmail.com> - -=head1 COPYRIGHT AND LICENSE - -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. - -This is free software; you can redistribute it and/or modify it under -the same terms as the Perl 5 programming language system itself. - -=cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/WithReasonableDefaults.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/WithReasonableDefaults.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler/WithReasonableDefaults.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler/WithReasonableDefaults.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,7 +1,5 @@ package DBIx::Class::DeploymentHandler::WithReasonableDefaults; -{ - $DBIx::Class::DeploymentHandler::WithReasonableDefaults::VERSION = '0.002210'; -} +$DBIx::Class::DeploymentHandler::WithReasonableDefaults::VERSION = '0.002215'; use Moose::Role; # ABSTRACT: Make default arguments to a few methods sensible @@ -86,7 +84,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler.pm new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler.pm --- old/DBIx-Class-DeploymentHandler-0.002210/lib/DBIx/Class/DeploymentHandler.pm 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/lib/DBIx/Class/DeploymentHandler.pm 2015-01-10 20:58:15.000000000 +0100 @@ -1,8 +1,5 @@ package DBIx::Class::DeploymentHandler; -{ - $DBIx::Class::DeploymentHandler::VERSION = '0.002210'; -} - +$DBIx::Class::DeploymentHandler::VERSION = '0.002215'; # ABSTRACT: Extensible DBIx::Class deployment use Moose; @@ -100,6 +97,7 @@ sql_translator_args => { add_drop_table => 0 }, }); + $dh->prepare_deploy; $dh->prepare_upgrade({ from_version => 1, to_version => 2, @@ -163,6 +161,48 @@ L<DBIx::Class::DeploymentHandler::VersionStorage::Standard>, and L<DBIx::Class::DeploymentHandler::WithReasonableDefaults>. +=head1 WHY IS THIS SO WEIRD + +C<DBIx::Class::DeploymentHandler> has a strange structure. The gist is that it +delegates to three small objects that are proxied to via interface roles that +then create the illusion of one large, monolithic object. Here is a diagram +that might help: + + +------------+ + | | + +------------+ Deployment +-----------+ + | | Handler | | + | | | | + | +-----+------+ | + | | | + | | | + : : : + v v v + /-=-------\ /-=-------\ /-=----------\ + | | | | | | (interface roles) + | Handles | | Handles | | Handles | + | Version | | Deploy | | Versioning | + | Storage | | | | | + | | \-+--+--+-/ \-+---+---+--/ + \-+--+--+-/ | | | | | | + | | | | | | | | | + | | | | | | | | | + v v v v v v v v v + +----------+ +--------+ +-----------+ + | | | | | | (implementations) + | Version | | Deploy | | Version | + | Storage | | Method | | Handler | + | Standard | | SQLT | | Monotonic | + | | | | | | + +----------+ +--------+ +-----------+ + +The nice thing about this is that we have well defined interfaces for the +objects that comprise the C<DeploymentHandler>, the smaller objects can be +tested in isolation, and the smaller objects can even be swapped in easily. But +the real win is that you can subclass the C<DeploymentHandler> without knowing +about the underlying delegation; you just treat it like normal Perl and write +methods that do what you want. + =head1 THIS SUCKS You started your project and weren't using C<DBIx::Class::DeploymentHandler>? @@ -243,7 +283,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/t/deploy_methods/sql_translator_errors.t new/DBIx-Class-DeploymentHandler-0.002215/t/deploy_methods/sql_translator_errors.t --- old/DBIx-Class-DeploymentHandler-0.002210/t/deploy_methods/sql_translator_errors.t 1970-01-01 01:00:00.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/t/deploy_methods/sql_translator_errors.t 2015-01-10 20:58:15.000000000 +0100 @@ -0,0 +1,56 @@ +#!perl + +use strict; +use warnings; + +use Test::More; +use Test::Fatal qw(dies_ok exception); + +use lib 't/lib'; +use DBICDHTest; +use aliased 'DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator'; +use Path::Class qw(dir file); +use File::Temp qw(tempdir); + +my $dbh = DBICDHTest::dbh(); +my @connection = (sub { $dbh }, { ignore_version => 1 }); +my $sql_dir = tempdir( CLEANUP => 1 ); + +VERSION1: { + use_ok 'DBICVersion_v1'; + my $s = DBICVersion::Schema->connect(@connection); + my $dm = Translator->new({ + schema => $s, + script_directory => $sql_dir, + databases => ['SQLite'], + sql_translator_args => { add_drop_table => 0 }, + }); + + ok( $dm, 'DBIC::DH::DM::SQL::Translator gets instantiated correctly' ); + + my $lethal_perl = file($sql_dir, 'SQLite', 'deploy', qw(1.0 000-foo.pl )); + dir($sql_dir, 'SQLite', 'deploy', '1.0')->mkpath; + { + open my $fh, '>', $lethal_perl; + print {$fh} 'sub {die "test"}'; + close $fh; + } + + like exception { + $dm->deploy; + }, qr(Perl in .*SQLite[/\\]deploy[/\\]1\.0[/\\]000-foo\.pl), 'file prepended to Perl script error'; + + unlink "$lethal_perl"; + + open my $fh, '>', + file($sql_dir, 'SQLite', 'deploy', qw(1.0 000-bar.sql )); + print {$fh} 'INVALID SQL;'; + close $fh; + + like exception { + $dm->deploy; + }, qr(SQL in .*SQLite[/\\]deploy[/\\]1\.0[/\\]000-bar\.sql), 'file prepended to SQL script error'; +} + +done_testing; +#vim: ts=2 sw=2 expandtab diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/t/deploy_methods/sql_translator_ignore_ddl.t new/DBIx-Class-DeploymentHandler-0.002215/t/deploy_methods/sql_translator_ignore_ddl.t --- old/DBIx-Class-DeploymentHandler-0.002210/t/deploy_methods/sql_translator_ignore_ddl.t 1970-01-01 01:00:00.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/t/deploy_methods/sql_translator_ignore_ddl.t 2015-01-10 20:58:15.000000000 +0100 @@ -0,0 +1,44 @@ +#!perl + +use strict; +use warnings; + +use Test::More; +use Test::Fatal qw(dies_ok exception); + +use lib 't/lib'; +use DBICDHTest; +use aliased 'DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator'; +use Path::Class qw(dir file); +use File::Temp qw(tempdir); + +my $dbh = DBICDHTest::dbh(); +my @connection = (sub { $dbh }, { ignore_version => 1 }); +my $sql_dir = tempdir( CLEANUP => 1 ); + +VERSION1: { + use_ok 'DBICVersion_v1'; + my $s = DBICVersion::Schema->connect(@connection); + my $dm = Translator->new({ + schema => $s, + script_directory => $sql_dir, + databases => ['SQLite'], + sql_translator_args => { add_drop_table => 0 }, + ignore_ddl => 1, + }); + + ok( $dm, 'DBIC::DH::DM::SQL::Translator gets instantiated correctly' ); + + dir($sql_dir, '_common', 'deploy', '_any')->mkpath; + open my $fh, '>', + file($sql_dir, '_common', 'deploy', qw(_any 000-bar.sql )); + print {$fh} 'INVALID SQL;'; + close $fh; + + like exception { + $dm->deploy; + }, qr(INVALID SQL), 'tried to run _any file when ignoring ddl'; +} + +done_testing; +#vim: ts=2 sw=2 expandtab diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-DeploymentHandler-0.002210/t/release-pod-syntax.t new/DBIx-Class-DeploymentHandler-0.002215/t/release-pod-syntax.t --- old/DBIx-Class-DeploymentHandler-0.002210/t/release-pod-syntax.t 2014-01-31 16:35:35.000000000 +0100 +++ new/DBIx-Class-DeploymentHandler-0.002215/t/release-pod-syntax.t 2015-01-10 20:58:15.000000000 +0100 @@ -7,9 +7,8 @@ } } +# This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests. use Test::More; - -eval "use Test::Pod 1.41"; -plan skip_all => "Test::Pod 1.41 required for testing POD" if $@; +use Test::Pod 1.41; all_pod_files_ok();