add email resultsource

Survey-Perl/lib/PerlSurvey/Schema/Result/Email.pm

@@ -0,0 +1,62 @@
+package PerlSurvey::Schema::Result::Email;
+
+# Created by DBIx::Class::Schema::Loader
+# DO NOT MODIFY THE FIRST PART OF THIS FILE
+
+use strict;
+use warnings;
+
+use base 'DBIx::Class::Core';
+
+
+=head1 NAME
+
+PerlSurvey::Schema::Result::Email
+
+=cut
+
+__PACKAGE__->table("email");
+
+=head1 ACCESSORS
+
+=head2 id
+
+  data_type: integer
+  default_value: undef
+  is_nullable: 1
+  size: undef
+
+=head2 email
+
+  data_type: varchar
+  default_value: undef
+  is_nullable: 1
+  size: 255
+
+=cut
+
+__PACKAGE__->add_columns(
+  "id",
+  {
+    data_type => "integer",
+    default_value => undef,
+    is_nullable => 1,
+    size => undef,
+  },
+  "email",
+  {
+    data_type => "varchar",
+    default_value => undef,
+    is_nullable => 1,
+    size => 255,
+  },
+);
+__PACKAGE__->set_primary_key("id");
+
+
+# Created by DBIx::Class::Schema::Loader v0.05003 @ 2010-02-21 22:26:21
+# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:45YMTEFJwnQEvLptOcoiNw
+
+
+# You can replace this text with custom content, and it will be preserved on regeneration
+1;