From: Daisuke Murase <typester@cpan.org>
Date: Fri, 3 Mar 2006 03:17:53 +0000 (+0000)
Subject:  * added UTF8Columns
X-Git-Tag: v0.06000~60^2~66
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5dd9c59cc29803edc5e6e509bb23754c393b3d54;p=dbsrgits%2FDBIx-Class.git

 * added UTF8Columns
---

diff --git a/lib/DBIx/Class/UTF8Columns.pm b/lib/DBIx/Class/UTF8Columns.pm
new file mode 100644
index 0000000..d5a37df
--- /dev/null
+++ b/lib/DBIx/Class/UTF8Columns.pm
@@ -0,0 +1,93 @@
+package DBIx::Class::UTF8Columns;
+use strict;
+use warnings;
+use base qw/DBIx::Class/;
+
+use Encode;
+
+__PACKAGE__->mk_classdata( force_utf8_columns => [] );
+
+=head1 NAME
+
+DBIx::Class::UTF8Columns - Force UTF8 (Unicode) flag on columns
+
+=head1 SYNOPSIS
+
+    package Artist;
+    __PACKAGE__->load_components(qw/UTF8Columns Core/);
+    __PACKAGE__->utf8_columns(qw/name description/);
+    
+    # then belows return strings with utf8 flag
+    $artist->name;
+    $artist->get_column('description');
+
+=head1 DESCRIPTION
+
+This module allows you to get columns data that have utf8 (Unicode) flag.
+
+=head1 SEE ALSO
+
+L<Template::Stash::ForceUTF8>, L<DBIx::Class::UUIDColumns>.
+
+=head1 METHODS
+
+=head2 utf8_columns
+
+=cut
+
+sub utf8_columns {
+    my $self = shift;
+    for (@_) {
+        $self->throw_exception("column $_ doesn't exist")
+            unless $self->has_column($_);
+    }
+    $self->force_utf8_columns( \@_ );
+}
+
+=head1 EXTENDED METHODS
+
+=head2 get_column
+
+=cut
+
+sub get_column {
+    my ( $self, $column ) = @_;
+    my $value = $self->next::method($column);
+
+    if ( { map { $_ => 1 } @{ $self->force_utf8_columns } }->{$column} ) {
+        Encode::_utf8_on($value) unless Encode::is_utf8($value);
+    }
+
+    $value;
+}
+
+=head2 store_column
+
+=cut
+
+sub store_column {
+    my ( $self, $column, $value ) = @_;
+
+    if ( { map { $_ => 1 } @{ $self->force_utf8_columns } }->{$column} ) {
+        Encode::_utf8_off($value) if Encode::is_utf8($value);
+    }
+
+    $self->next::method( $column, $value );
+}
+
+=head1 AUTHOR
+
+Daisuke Murase <typester@cpan.org>
+
+=head1 COPYRIGHT
+
+This program is free software; you can redistribute
+it and/or modify it under the same terms as Perl itself.
+
+The full text of the license can be found in the
+LICENSE file included with this module.
+
+=cut
+
+1;
+