Removed debug print statement from SQLT parser
Matt S Trout [Mon, 6 Feb 2006 01:07:09 +0000 (01:07 +0000)]
lib/SQL/Translator/Parser/DBIx/Class.pm

index 6ae4a60..2d0bf00 100644 (file)
@@ -77,7 +77,6 @@ sub parse {
         foreach my $rel (@rels)
         {
             my $rel_info = $source->relationship_info($rel);
-            print "Accessor: $rel_info->{attrs}{accessor}\n";
             next if(!exists $rel_info->{attrs}{accessor} ||
                     $rel_info->{attrs}{accessor} eq 'multi');
             # Going by the accessor type isn't such a good idea (yes, I know