t/lib/DBICTest/Schema/Encoded.pm

   1 package # hide from PAUSE
   2     DBICTest::Schema::Encoded;
   3
   4 use base qw/DBICTest::BaseResult/;
   5
   6 use strict;
   7 use warnings;
   8
   9 __PACKAGE__->table('encoded');
  10 __PACKAGE__->add_columns(
  11     'id' => {
  12         data_type => 'integer',
  13         is_auto_increment => 1
  14     },
  15     'encoded' => {
  16         data_type => 'varchar',
  17         size      => 100,
  18         is_nullable => 1,
  19     },
  20 );
  21
  22 __PACKAGE__->set_primary_key('id');
  23
  24 sub set_column {
  25   my ($self, $col, $value) = @_;
  26   if( $col eq 'encoded' ){
  27     $value = reverse split '', $value;
  28   }
  29   $self->next::method($col, $value);
  30 }
  31
  32 sub new {
  33   my($self, $attr, @rest) = @_;
  34   $attr->{encoded} = reverse split '', $attr->{encoded}
  35     if defined $attr->{encoded};
  36   return $self->next::method($attr, @rest);
  37 }
  38
  39 1;