package Vending::Product;
use strict;
use warnings;
use Vending;
class Vending::Product {
is => [ 'Vending::ContentType' ],
table_name => 'PRODUCT',
id_sequence_generator_name => 'URMETA_content_type_TYPE_ID_seq',
id_by => [
product_id => { is => 'integer' },
],
has => [
manufacturer => { is => 'varchar' },
cost_cents => { is => 'integer' },
price => { calculate_from => 'cost_cents',
calculate => q(sprintf("\$%.2f", $cost_cents/100)),
doc => 'display price in dollars' },
item_type_product => { is => 'Vending::ContentType', id_by => 'product_id', constraint_name => 'PRODUCT_PRODUCT_ID_CONTENT_TYPE_TYPE_ID_FK' },
],
schema_name => 'Machine',
data_source => 'Vending::DataSource::Machine',
doc => 'kinds of things the machine sells',
};
1;