From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Mon, 16 Nov 2009 19:53:54 +0000 (-0800)
Subject: remove unnecessary (Any $)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9479c37a8642aed837159f3fa3aa7e95a8838f46;p=dbsrgits%2FSQL-Translator-2.0-ish.git

remove unnecessary (Any $)
---

diff --git a/lib/SQL/Translator/Object.pm b/lib/SQL/Translator/Object.pm
index 7b48760..e6970ec 100644
--- a/lib/SQL/Translator/Object.pm
+++ b/lib/SQL/Translator/Object.pm
@@ -40,20 +40,20 @@ class SQL::Translator::Object with SQL::Translator::Object::Compat {
         default => sub { {} },
     );
 
-    has 'error' => (
+    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 }
+    multi method comments { wantarray ? $self->_comments : join "\n", $self->_comments }
 
     multi method options(Str $option) { $self->add_option($option); $self->options }
     multi method options(ArrayRef $options) { $self->add_option($_) for @$options; $self->options }
-    multi method options(Any $) { wantarray ? $self->_options : $self->_options }
+    multi method options { wantarray ? $self->_options : $self->_options }
 
     multi method extra(Str $extra) { $self->get_extra($extra) }
     multi method extra(HashRef $extra) { $self->add_extra($_, $extra->{$_}) for keys %$extra; $self->extra }
-    multi method extra(Any $) { wantarray ? %{$self->_extra} : $self->_extra }
+    multi method extra { wantarray ? %{$self->_extra} : $self->_extra }
 }