t/testlib/Binary.pm

   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