Cleanup a bit
[dbsrgits/DBIx-Class-Historic.git] / 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;