X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FDeploymentHandler%2FDad.pm;h=8b6b8c4c7255b6a00b0fcbcd863b54cdf345ce01;hb=e52174e31b95fe335f6ab8cfdbf23cc2a0c05673;hp=db485b3c8320487165fb7e0d36122a047efd412f;hpb=cfc9edf93ec15cb3ae64af76905d96c89681f51b;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git diff --git a/lib/DBIx/Class/DeploymentHandler/Dad.pm b/lib/DBIx/Class/DeploymentHandler/Dad.pm index db485b3..8b6b8c4 100644 --- a/lib/DBIx/Class/DeploymentHandler/Dad.pm +++ b/lib/DBIx/Class/DeploymentHandler/Dad.pm @@ -66,6 +66,10 @@ __PACKAGE__->meta->make_immutable; 1; +# vim: ts=2 sw=2 expandtab + +__END__ + =pod =attr schema @@ -107,7 +111,7 @@ returned from L. $dh->downgrade Downgrades the database one step at a time till L -returns C. Each downgrade step will delete a Cfrom the +returns C. Each downgrade step will delete a C from the version storage. =method backup @@ -120,72 +124,82 @@ assuming it will work. =head1 METHODS THAT ARE REQUIRED IN SUBCLASSES +=head2 deploy + +See L. + =head2 version_storage_is_installed - warn q(I can't version this database!) - unless $dh->version_storage_is_installed +See L. -return true iff the version storage is installed. +=head2 add_database_version -=head2 deploy +See L. - $dh->deploy +=head2 delete_database_version -Deploy the schema to the database. +See L. -=head2 add_database_version +=head2 next_version_set - $dh->add_database_version({ - version => '1.02', - ddl => $ddl # can be undef, - upgrade_sql => $sql # can be undef, - }); +See L. -Store a new version into the version storage +=head2 previous_version_set -=head2 delete_database_version +See L. - $dh->delete_database_version({ version => '1.02' }) +=head2 upgrade_single_step -simply deletes given database version from the version storage +See L. -=head2 next_version_set +=head2 downgrade_single_step - print 'versions to install: '; - while (my $vs = $dh->next_version_set) { - print join q(, ), @{$vs} - } - print qq(\n); +See L. -return an arrayref describing each version that needs to be -installed to upgrade to C<< $dh->to_version >>. +=head1 ORTHODOX METHODS -=head2 previous_version_set +These methods are not actually B as things will probably still work +if you don't implement them, but if you want your subclass to get along with +other subclasses (or more likely, tools made to use another subclass), you +should probably implement these too, even if they are no-ops. - print 'versions to uninstall: '; - while (my $vs = $dh->previous_version_set) { - print join q(, ), @{$vs} - } - print qq(\n); +=head2 database_version -return an arrayref describing each version that needs to be -"installed" to downgrade to C<< $dh->to_version >>. +see L -=head2 upgrade_single_step +=head2 prepare_install - my ($ddl, $sql) = @{$dh->upgrade_single_step($version_set)||[]} +see L -call a single upgrade migration. Takes an arrayref describing the version to -upgrade to. Optionally return an arrayref containing C<$ddl> describing -version installed and C<$sql> used to get to that version. +=head2 prepare_resultsource_install -=head2 downgrade_single_step +see L - $dh->upgrade_single_step($version_set); +=head2 install_resultsource -call a single downgrade migration. Takes an arrayref describing the version to -downgrade to. +see L -__END__ +=head2 prepare_upgrade + +see L + +=head2 prepare_downgrade + +see L + +=back + +=head2 SUBCLASSING + +All of the methods mentioned in L and +L can be implemented in any fashion you choose. In the +spirit of code reuse I have used roles to implement them in my two subclasses, +L and +L, but you are free to implement +them entirely in a subclass if you so choose to. + +For in-depth documentation on how methods are supposed to work, see the roles +L, +L, and +L. -vim: ts=2 sw=2 expandtab