1package Binary; 2 3BEGIN { unshift @INC, './t/testlib'; } 4 5use strict; 6use 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 14sub schema { "id INTEGER, bin BYTEA" } 15 161; 17 18