[Bast-commits] r5432 - DBIx-Class/0.08/trunk/t/lib/DBICTest/Schema

[groditi at dev.catalyst.perl.org]

Author: groditi
Date: 2009-02-09 20:29:03 +0000 (Mon, 09 Feb 2009)
New Revision: 5432

Added:
   DBIx-Class/0.08/trunk/t/lib/DBICTest/Schema/Encoded.pm
Log:
ahhhh my bad. svk patch ne patch. oops adding missing file

Added: DBIx-Class/0.08/trunk/t/lib/DBICTest/Schema/Encoded.pm
===================================================================
--- DBIx-Class/0.08/trunk/t/lib/DBICTest/Schema/Encoded.pm	                        (rev 0)
+++ DBIx-Class/0.08/trunk/t/lib/DBICTest/Schema/Encoded.pm	2009-02-09 20:29:03 UTC (rev 5432)
@@ -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;