utilize DBIx::Class
[p5sagit/Email-Archive.git] / lib / Email / Archive / Schema / Result / Messages.pm
1 package Email::Archive::Schema::Result::Messages;
2
3 use strict;
4 use warnings;
5
6 use base 'DBIx::Class::Core';
7
8 __PACKAGE__->table('messages');
9
10 __PACKAGE__->add_columns(
11   'message_id', {
12     data_type => 'varchar',
13     default_value => '',
14     is_nullable => 0,
15     size => 255,
16   },
17   'from_addr', {
18     data_type => 'varchar',
19     default_value => '',
20     is_nullable => 0,
21     size => 255,
22   },
23   'to_addr', {
24     data_type => 'varchar',
25     default_value => '',
26     is_nullable => 0,
27     size => 255,
28   },
29   'cc', {
30     data_type => 'varchar',
31     default_value => '',
32     is_nullable => 0,
33     size => 255,
34   },
35   'subject', {
36     data_type => 'varchar',
37     default_value => '',
38     is_nullable => 0,
39     size => 255,
40   },
41   'date', {
42     data_type => 'varchar',
43     default_value => '',
44     is_nullable => 0,
45     size => 255,
46   },
47   'body', {
48     data_type => 'text',
49     default_value => '',
50     is_nullable => 0,
51   },
52 );
53
54 __PACKAGE__->set_primary_key('message_id');
55
56 1;
57