various doc

[dbsrgits/DBIx-Class-DeploymentHandler.git] / lib / DBIx / Class / DeploymentHandler / VersionStorage / Standard / Component.pm

diff --git a/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard/Component.pm b/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard/Component.pm
index ecf2e24..578bd3b 100644 (file)
--- a/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard/Component.pm
+++ b/lib/DBIx/Class/DeploymentHandler/VersionStorage/Standard/Component.pm
@@ -1,5 +1,7 @@
 package DBIx::Class::DeploymentHandler::VersionStorage::Standard::Component;
 
+# ABSTRACT: Attach this component to your schema to ensure you stay up to date
+
 use strict;
 use warnings;
 
@@ -7,9 +9,9 @@ use Carp 'carp';
 use DBIx::Class::DeploymentHandler::VersionStorage::Standard::VersionResult;
 
 sub attach_version_storage {
-       $_[0]->register_class(
-               __VERSION => 'DBIx::Class::DeploymentHandler::VersionStorage::Standard::VersionResult'
-       );
+   $_[0]->register_class(
+      __VERSION => 'DBIx::Class::DeploymentHandler::VersionStorage::Standard::VersionResult'
+   );
 }
 
 sub connection  {
@@ -21,17 +23,22 @@ sub connection  {
   my $args = $_[3] || {};
 
   unless ( $args->{ignore_version} || $ENV{DBIC_NO_VERSION_CHECK}) {
-        my $versions = $self->resultset('__VERSION');
-
-        if (!$versions->is_installed) {
-                carp "Your DB is currently unversioned. Please call upgrade on your schema to sync the DB.\n";
-        } elsif ($versions->db_version ne $self->schema_version) {
-               carp 'Versions out of sync. This is ' . $self->schema_version .
-                 ', your database contains version ' . $versions->db_version . ", please call upgrade on your Schema.\n";
-        }
+    my $versions = $self->resultset('__VERSION');
+
+    if (!$versions->version_storage_is_installed) {
+       carp "Your DB is currently unversioned. Please call upgrade on your schema to sync the DB.\n";
+    } elsif ($versions->database_version ne $self->schema_version) {
+      carp 'Versions out of sync. This is ' . $self->schema_version .
+        ', your database contains version ' . $versions->database_version . ", please call upgrade on your Schema.\n";
+    }
   }
 
   return $self;
 }
 
 1;
+
+# vim: ts=2 sw=2 expandtab
+
+__END__
+