[dbsrgits/DBIx-Class.git] / t / cdbi / testlib / ColumnObject.pm

package # Hide from PAUSE
    ColumnObject;

use strict;
use warnings;

use base 'DBIC::Test::SQLite';
use Class::DBI::Column;

__PACKAGE__->set_table('column_object');

__PACKAGE__->columns( Primary => 'id' );
__PACKAGE__->columns( All => (
  'id',
  'columna',
  'columnb',
  Class::DBI::Column->new('columna' => {accessor => 'columna_as_read'}),
  Class::DBI::Column->new('columnb' => {mutator  => 'columnb_as_write'}),
));

# Disables the implicit autoinc-on-non-supplied-pk behavior
# (and the warning that goes with it)
# This is the same behavior as it was pre 0.082900
__PACKAGE__->column_info('id')->{is_auto_increment} = 0;

sub create_sql {
  return qq{
    id       INTEGER PRIMARY KEY,
    columna  VARCHAR(20),
    columnb  VARCHAR(20)
  }
}

1;
Commit	Line	Data
7ad80222	1	package # Hide from PAUSE
	2	ColumnObject;
	3
	4	use strict;
	5	use warnings;
	6
	7	use base 'DBIC::Test::SQLite';
	8	use Class::DBI::Column;
	9
	10	__PACKAGE__->set_table('column_object');
	11
	12	__PACKAGE__->columns( Primary => 'id' );
	13	__PACKAGE__->columns( All => (
	14	'id',
	15	'columna',
	16	'columnb',
	17	Class::DBI::Column->new('columna' => {accessor => 'columna_as_read'}),
	18	Class::DBI::Column->new('columnb' => {mutator => 'columnb_as_write'}),
	19	));
	20
7305f6f9	21	# Disables the implicit autoinc-on-non-supplied-pk behavior
	22	# (and the warning that goes with it)
	23	# This is the same behavior as it was pre 0.082900
	24	__PACKAGE__->column_info('id')->{is_auto_increment} = 0;
	25
7ad80222	26	sub create_sql {
	27	return qq{
	28	id INTEGER PRIMARY KEY,
	29	columna VARCHAR(20),
	30	columnb VARCHAR(20)
	31	}
	32	}
	33
	34	1;