[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'}),
));

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
	21	sub create_sql {
	22	return qq{
	23	id INTEGER PRIMARY KEY,
	24	columna VARCHAR(20),
	25	columnb VARCHAR(20)
	26	}
	27	}
	28
	29	1;