t/lib/DBICTest/Schema/Quotes.pm

   1 package # hide from PAUSE
   2     DBICTest::Schema::Quotes;
   3
   4 use warnings;
   5 use strict;
   6
   7 use base 'DBICTest::BaseResult';
   8
   9 # Include all the common quote characters
  10 __PACKAGE__->table('`with` [some] "quotes"');
  11
  12 __PACKAGE__->add_columns(
  13   '`has` [more] "quotes"' => {
  14     data_type => 'integer',
  15     is_auto_increment => 1,
  16     accessor => 'has_more_quotes',
  17   },
  18   'has # comment' => {
  19     data_type => 'integer',
  20     accessor => 'has_comment',
  21   },
  22   artistid => {
  23     data_type => 'integer',
  24   },
  25 );
  26
  27 __PACKAGE__->belongs_to(artist => 'DBICTest::Schema::Artist', 'artistid');
  28
  29 1;