From: Guillermo Roditi <groditi@cpan.org>
Date: Mon, 9 Feb 2009 20:29:03 +0000 (+0000)
Subject: ahhhh my bad. svk patch ne patch. oops adding missing file
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f1417dab0ab14cdc77524368db71c7cdb89ade0d;p=dbsrgits%2FDBIx-Class-Historic.git

ahhhh my bad. svk patch ne patch. oops adding missing file
---

diff --git a/t/lib/DBICTest/Schema/Encoded.pm b/t/lib/DBICTest/Schema/Encoded.pm
new file mode 100644
index 0000000..9d09f31
--- /dev/null
+++ b/t/lib/DBICTest/Schema/Encoded.pm
@@ -0,0 +1,39 @@
+package # hide from PAUSE
+    DBICTest::Schema::Encoded;
+
+use base 'DBIx::Class::Core';
+
+use strict;
+use warnings;
+
+__PACKAGE__->table('encoded');
+__PACKAGE__->add_columns(
+    'id' => {
+        data_type => 'integer',
+        is_auto_increment => 1
+    },
+    'encoded' => {
+        data_type => 'varchar',
+        size      => 100,
+        is_nullable => 1,
+    },
+);
+
+__PACKAGE__->set_primary_key('id');
+
+sub set_column {
+  my ($self, $col, $value) = @_;
+  if( $col eq 'encoded' ){
+    $value = reverse split '', $value;
+  }
+  $self->next::method($col, $value);
+}
+
+sub new {
+  my($self, $attr, @rest) = @_;
+  $attr->{encoded} = reverse split '', $attr->{encoded}
+    if defined $attr->{encoded};
+  return $self->next::method($attr, @rest);
+}
+
+1;