Another example to bind columns (issue#159)

Author: Tux

ChangeLog

@@ -1,6 +1,7 @@
 1.647 - 2025-01-17, H.Merijn Brand
     * Spellcheck
-    * Fix Makefile rules for Changes
+    * Fix Makefile rules for Changes (Windows case issue)
+    * Another example to bind columns (issue#159)
 
 1.646 - 2025-01-11, H.Merijn Brand
     * Remove "experimental" tag from statistics_info () (issue#134)

DBI.pm

@@ -6894,11 +6894,28 @@ a hash (thanks to H.Merijn Brand):
 
   $sth->execute;
   my %row;
-  $sth->bind_columns( \( @row{ @{$sth->{NAME_lc} } } ));
+  $sth->bind_columns (\( @row{ @{$sth->{NAME_lc} }} ));
   while ($sth->fetch) {
       print "$row{region}: $row{sales}\n";
   }
 
+but has a small drawback: If data already fetched call to L</bind_columns>
+will flush current values.  If you want to bind_columns after you have fetched
+you can use:
+
+  use feature "refaliasing";
+  no warnings "experimental::refaliasing";
+  while (my $row = $sth->fetchrow_arrayref) {
+      \(@$data{ $sth->{NAME_lc}->@* }) =  \(@$row);
+  }
+
+or, with older perl versions:
+
+  use Data::Alias;
+  alias @$data{ $sth->{NAME_lc}->@* } =  @$row;
+
+This is useful in situations when you have many left joins, but wanna to join
+your %$data hash to only subset of fetched values.
 
 =head3 C<dump_results>
 

lib/DBI/Changes.pm

@@ -22,7 +22,11 @@ Spellcheck
 
 =item *
 
-Fix Makefile rules for Changes
+Fix Makefile rules for Changes (Windows case issue)
+
+=item *
+
+Another example to bind columns (issue#159)
 
 =back