\Q-uote column/alias names in regexes in _resolve_aliastypes_from_select_args

[dbsrgits/DBIx-Class.git] / t / lib / DBICTest / Schema / Quotes.pm

package # hide from PAUSE
    DBICTest::Schema::Quotes;

use warnings;
use strict;

use base 'DBICTest::BaseResult';

# Include all the common quote characters
__PACKAGE__->table('`with` [some] "quotes"');

__PACKAGE__->add_columns(
  '`has` [more] "quotes"' => {
    data_type => 'integer',
    is_auto_increment => 1,
    accessor => 'has_more_quotes',
  },
  'has # comment' => {
    data_type => 'integer',
    accessor => 'has_comment',
  },
  artistid => {
    data_type => 'integer',
  },
);

__PACKAGE__->belongs_to(artist => 'DBICTest::Schema::Artist', 'artistid');

1;