supposedly hasa()is deprecated in favor of has_a().

diff --git a/lib/SQL/Translator/Producer/ClassDBI.pm b/lib/SQL/Translator/Producer/ClassDBI.pm
index db10962..d611cf4 100755 (executable)
--- a/lib/SQL/Translator/Producer/ClassDBI.pm
+++ b/lib/SQL/Translator/Producer/ClassDBI.pm
@@ -1,7 +1,7 @@
 package SQL::Translator::Producer::ClassDBI;
 
 # -------------------------------------------------------------------
-# $Id: ClassDBI.pm,v 1.9 2003-06-09 03:20:16 allenday Exp $
+# $Id: ClassDBI.pm,v 1.10 2003-06-09 03:38:38 allenday Exp $
 # -------------------------------------------------------------------
 # Copyright (C) 2003 Ying Zhang <zyolive@yahoo.com>,
 #                    Allen Day <allenday@ucla.edu>,
@@ -23,7 +23,7 @@ package SQL::Translator::Producer::ClassDBI;
 
 use strict;
 use vars qw[ $VERSION $DEBUG ];
-$VERSION = sprintf "%d.%02d", q$Revision: 1.9 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.10 $ =~ /(\d+)\.(\d+)/;
 $DEBUG   = 1 unless defined $DEBUG;
 
 use SQL::Translator::Schema::Constants;
@@ -125,7 +125,7 @@ sub produce {
                 my @fields     = $fk->fields;
 
               $create .= $translator->format_package_name($table_name). 
-                    "->hasa(\n    " .
+                    "->has_a(\n    " .
                     $translator->format_package_name($ref_table). 
                     " => '$field_name'\n);\n\n";
               $create .= "sub " .
@@ -238,7 +238,7 @@ sub produce {
 #    #         }
 #
 #    #        my $link = $r_linkthis && $r_linkthat && !$r_linkdata ? '_link' : '';
-#            $create .= $translator->format_package_name($table). "->hasa(" .$translator->format_package_name($ref_table). " => \'$field\');\n";
+#            $create .= $translator->format_package_name($table). "->has_a(" .$translator->format_package_name($ref_table). " => \'$field\');\n";
 #            $create .= "sub " .$translator->format_fk_name($ref_table, $field)." { return shift->$field }\n\n";
 #          }
 #        }