Initial work on getting POD coverage testing working

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / UTF8Columns.pm

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