1package # hide from PAUSE 2 DBICTest::Schema::Host; 3 4use base qw/DBIx::Class/; 5 6__PACKAGE__->load_components(qw/InflateColumn::IP Core/); 7__PACKAGE__->table('host'); 8 9__PACKAGE__->add_columns( 10 hostname => { 11 data_type => 'text', 12 is_nullable => 0, 13 }, 14 address => { 15 data_type => 'bigint', 16 is_nullable => 0, 17 is_ip => 1, 18 } 19); 20 21__PACKAGE__->set_primary_key('hostname'); 22__PACKAGE__->add_unique_constraint(address => [ qw/address/ ]); 23 241; 25