t/testlib/Binary.pm

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