Got an iPhone or iPad? We have a brand new Pastebin App for both devices, and it's totally free! Click here to download the new Pastebin App for iOS.
Guest

Untitled

By: a guest on Feb 11th, 2012  |  syntax: None  |  size: 0.33 KB  |  hits: 54  |  expires: Never
download  |  raw  |  embed  |  report abuse
Copied
  1. package Users;
  2. use base Data::Model;
  3. use Data::Model::Schema;
  4.  
  5. base_driver(MyApp::DB->driver("default"));
  6.  
  7. install_model "users" => schema {
  8.     key "id";
  9.  
  10.     column "id" => "int" => {
  11.         auto_increment => 1,
  12.         required       => 1,
  13.         unsigned       => 1,
  14.     };
  15.  
  16.     columns qw(name email);
  17. };
  18.  
  19. 1;