Apllied Chris Hilton patch to remove subroutine redefinition
Mark Addison [Wed, 25 May 2005 12:38:58 +0000 (12:38 +0000)]
lib/SQL/Translator/Schema/Graph.pm

index 3f41edd..d13c56b 100644 (file)
@@ -24,7 +24,7 @@ use Class::MakeMethods::Template::Hash (
   object => [
                         'translator' => {class => 'SQL::Translator'},
                        ],
-  'hash' => [ qw( node translator) ],
+  'hash' => [ qw( node ) ],
   'number --counter' => [ qw( order ) ],
 );
 
@@ -252,16 +252,4 @@ sub init {
 
 }
 
-=head2 translator
-
-get the SQL::Translator instance that instatiated me
-
-=cut
-
-sub translator {
-    my $self = shift;
-    $self->{'translator'} = shift if @_;
-    return $self->{'translator'};
-}
-
 1;