Advertisement
Guest User

Untitled

a guest
Mar 16th, 2019
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.39 KB | None | 0 0
  1. package DB::Schema::Test;
  2.  
  3. use base qw/DBIx::Class/;
  4.  
  5. __PACKAGE__->load_components (qw/Core/);
  6.  
  7. __PACKAGE__->table('testtable');
  8. __PACKAGE__->add_columns(
  9.   'testtable_id' => {
  10.     data_type => 'integer',
  11.   },
  12.   'testtable_data' => {
  13.     data_type => 'varchar',
  14.     size => 100,
  15.     default => '',
  16.     is_nullable => 0,
  17.   },
  18. );
  19.  
  20. __PACKAGE__->set_primary_key('testtable_id');
  21.  
  22. 1;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement