t/lib/DBICTest/Schema/PunctuatedColumnName.pm

   1 package # hide from PAUSE
   2     DBICTest::Schema::PunctuatedColumnName;
   3
   4 use base qw/DBICTest::BaseResult/;
   5
   6 __PACKAGE__->table('punctuated_column_name');
   7 __PACKAGE__->add_columns(
   8   'id' => {
   9     data_type => 'integer',
  10     is_auto_increment => 1,
  11   },
  12   q{foo ' bar} => {
  13     data_type => 'integer',
  14     is_nullable => 1,
  15     accessor => 'foo_bar',
  16   },
  17   q{bar/baz} => {
  18     data_type => 'integer',
  19     is_nullable => 1,
  20     accessor => 'bar_baz',
  21   },
  22   q{baz;quux} => {
  23     data_type => 'integer',
  24     is_nullable => 1,
  25     accessor => 'bar_quux',
  26   },
  27 );
  28
  29 __PACKAGE__->set_primary_key('id');
  30
  31 1;