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