#!/usr/bin/perl use strict; use Tangram; my ($schema) = Tangram::Schema->new( 'classes' => { 'item' => { 'table' => 'test', 'abstract' => 1, 'fields' => { 'string' => [ qw( category description_short description_long description_table image_1 image_2 supplier_id barcode_id ) ], 'int' => [ qw( manufacturer supplier ) ] } } } ); $schema->deploy();