t/lib/DBICTest/Schema/PunctuatedColumnName.pm

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