* added get_columns support on UTF8Columns

 * added contributer

diff --git a/lib/DBIx/Class.pm b/lib/DBIx/Class.pm
index e638295..e5015e7 100644 (file)
--- a/lib/DBIx/Class.pm
+++ b/lib/DBIx/Class.pm
@@ -170,6 +170,8 @@ Robert Sedlacek <phaylon@dunkelheit.at>
 
 Justin Guenther <jguenther@agr.gc.ca>
 
+Daisuke Murase <typester@cpan.org>
+
 =head1 LICENSE
 
 You may distribute this code under the same terms as Perl itself.

diff --git a/lib/DBIx/Class/UTF8Columns.pm b/lib/DBIx/Class/UTF8Columns.pm
index d5a37df..71c1013 100644 (file)
--- a/lib/DBIx/Class/UTF8Columns.pm
+++ b/lib/DBIx/Class/UTF8Columns.pm
@@ -61,6 +61,21 @@ sub get_column {
     $value;
 }
 
+=head2 get_columns
+
+=cut
+
+sub get_columns {
+    my $self = shift;
+    my %data = $self->next::method(@_);
+
+    for (@{ $self->force_utf8_columns }) {
+        Encode::_utf8_on($data{$_}) if $data{$_} and !Encode::is_utf8($_);
+    }
+
+    %data;
+}
+
 =head2 store_column
 
 =cut