allow metadata to be defined for new products
[bse.git] / site / cgi-bin / modules / BSE / DummyProduct.pm
1 package BSE::DummyProduct;
2 use strict;
3 use BSE::DummyArticle;
4 our @ISA = qw(BSE::DummyArticle);
5 use BSE::TB::Products;
6
7 our $VERSION = "1.000";
8
9 {
10   my %fields;
11   @fields{BSE::TB::Product->columns} = ();
12   delete @fields{BSE::TB::Article->columns};
13   for my $name (keys %fields) {
14     eval "sub $name { \$_[0]{$name} }";
15   }
16 }
17
18
19 sub prices {}
20
21 1;