From: Daniel Westermann-Clark <danieltwc@cpan.org>
Date: Sun, 28 May 2006 00:00:08 +0000 (+0000)
Subject: Minor cleanup
X-Git-Tag: v0.07002~75^2~155^2~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=21278ccb181e4ce67b2f876111dc33f1bd8b2fec;p=dbsrgits%2FDBIx-Class.git

Minor cleanup
---

diff --git a/lib/DBIx/Class/ResultSet.pm b/lib/DBIx/Class/ResultSet.pm
index 8e44f82..3d331d3 100644
--- a/lib/DBIx/Class/ResultSet.pm
+++ b/lib/DBIx/Class/ResultSet.pm
@@ -467,7 +467,6 @@ sub single {
     }
   }
 
-#  use Data::Dumper; warn Dumper $attrs->{where};
   unless ($self->_is_unique_query($attrs->{where})) {
     carp "Query not guarnteed to return a single row"
       . "; please declare your unique constraints or use search instead";
@@ -488,7 +487,7 @@ sub _is_unique_query {
   my ($self, $query) = @_;
 
   my $collapsed = $self->_collapse_query($query);
-#  use Data::Dumper; warn Dumper $collapsed;
+#  use Data::Dumper; warn Dumper $query, $collapsed;
 
   foreach my $name ($self->result_source->unique_constraint_names) {
     my @unique_cols = map { "$self->{attrs}->{alias}.$_" }
@@ -519,7 +518,6 @@ sub _is_unique_query {
 sub _collapse_query {
   my ($self, $query, $collapsed) = @_;
 
-  # Accumulate fields in the AST
   $collapsed ||= {};
 
   if (ref $query eq 'ARRAY') {
@@ -541,7 +539,6 @@ sub _collapse_query {
       foreach my $key (keys %$query) {
         push @{$collapsed->{$key}}, $query->{$key};
       }
-#      warn Dumper $collapsed;
     }
   }