Commit | Line | Data |
---|---|---|
ea2e61bf | 1 | package Binary; |
2 | ||
3 | BEGIN { unshift @INC, './t/testlib'; } | |
4 | ||
5 | use strict; | |
6 | use base 'PgBase'; | |
7 | ||
8 | __PACKAGE__->table(cdbibintest => 'cdbibintest'); | |
9 | __PACKAGE__->sequence('binseq'); | |
10 | __PACKAGE__->columns(All => qw(id bin)); | |
11 | ||
12 | # __PACKAGE__->data_type(bin => DBI::SQL_BINARY); | |
13 | ||
14 | sub schema { "id INTEGER, bin BYTEA" } | |
15 | ||
16 | 1; | |
17 |