1package Lazy; 2 3BEGIN { unshift @INC, './t/testlib'; } 4use base 'CDBase'; 5use strict; 6 7# __PACKAGE__->table("Lazy"); 8__PACKAGE__->columns('Primary', qw(this)); 9__PACKAGE__->columns('Essential', qw(opop)); 10__PACKAGE__->columns('things', qw(this that)); 11__PACKAGE__->columns('horizon', qw(eep orp)); 12__PACKAGE__->columns('vertical', qw(oop opop)); 13 14sub CONSTRUCT { 15 my $class = shift; 16 $class->db_Main->do( 17 qq{ 18 CREATE TABLE lazy ( 19 this INTEGER, 20 that INTEGER, 21 eep INTEGER, 22 orp INTEGER, 23 oop INTEGER, 24 opop INTEGER 25 ) 26 } 27 ); 28} 29 301; 31 32