From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Sat, 3 Oct 2009 04:49:11 +0000 (-0700)
Subject: add error attribute
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aa3b5197e5022d387030cf53c04ff3613215591b;p=dbsrgits%2FSQL-Translator-2.0-ish.git

add error attribute
---

diff --git a/lib/SQL/Translator/Object.pm b/lib/SQL/Translator/Object.pm
index fcab281..7b48760 100644
--- a/lib/SQL/Translator/Object.pm
+++ b/lib/SQL/Translator/Object.pm
@@ -40,6 +40,11 @@ class SQL::Translator::Object with SQL::Translator::Object::Compat {
         default => sub { {} },
     );
 
+    has 'error' => (
+        is => 'rw',
+        isa => Str
+    );
+
     multi method comments(Str $comment) { $self->add_comment($comment); $self->comments }
     multi method comments(ArrayRef $comments) { $self->add_comment($_) for @$comments; $self->comments }
     multi method comments(Any $) { wantarray ? $self->_comments : join "\n", $self->_comments }