Make SQLT::Role::Error internals closer to Class::Base

diff --git a/lib/SQL/Translator/Role/Error.pm b/lib/SQL/Translator/Role/Error.pm
index f8aab10..40319e4 100644 (file)
--- a/lib/SQL/Translator/Role/Error.pm
+++ b/lib/SQL/Translator/Role/Error.pm
@@ -1,14 +1,19 @@
 package SQL::Translator::Role::Error;
 use Moo::Role;
 
-has error => (is => 'rw', default => sub { '' });
+has _ERROR => (
+    is => 'rw',
+    accessor => 'error',
+    init_arg => undef,
+    default => sub { '' },
+);
 
 around error => sub {
     my ($orig, $self) = (shift, shift);
 
     # Emulate horrible Class::Base API
-    unless (ref ($self)) {
-        my $errref = do { no strict 'refs'; \${"${self}::_ERROR"} };
+    unless (ref($self)) {
+        my $errref = do { no strict 'refs'; \${"${self}::ERROR"} };
         return $$errref unless @_;
         $$errref = $_[0];
         return undef;