X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FDeploymentHandler%2FHandlesVersioning.pm;fp=lib%2FDBIx%2FClass%2FDeploymentHandler%2FHandlesVersioning.pm;h=43f10093f4465ecf70879c3809db603d93567a26;hb=5228a963e60b0c085a6ce930f9ba9dc66215676c;hp=495c8bba223b0a648c48a854f18ac5ed26432cac;hpb=cfc9edf93ec15cb3ae64af76905d96c89681f51b;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git

diff --git a/lib/DBIx/Class/DeploymentHandler/HandlesVersioning.pm b/lib/DBIx/Class/DeploymentHandler/HandlesVersioning.pm
index 495c8bb..43f1009 100644
--- a/lib/DBIx/Class/DeploymentHandler/HandlesVersioning.pm
+++ b/lib/DBIx/Class/DeploymentHandler/HandlesVersioning.pm
@@ -11,15 +11,25 @@ __END__
 
 =method next_version_set
 
- while (my $version_set = $versions->next_version_set) {
-   ...
+ print 'versions to install: ';
+ while (my $vs = $dh->next_version_set) {
+   print join q(, ), @{$vs}
  }
+ print qq(\n);
+
+return an arrayref describing each version that needs to be
+installed to upgrade to C<< $dh->to_version >>.
 
 =method previous_version_set
 
- while (my $version_set = $versions->previous_version_set) {
-   ...
+ print 'versions to uninstall: ';
+ while (my $vs = $dh->previous_version_set) {
+   print join q(, ), @{$vs}
  }
+ print qq(\n);
+
+return an arrayref describing each version that needs to be
+"installed" to downgrade to C<< $dh->to_version >>.
 
 # normally a VersionHandler will take
 # a to_version and yeild an iterator of