1 package BSE::DummyProduct;
4 our @ISA = qw(BSE::DummyArticle);
7 our $VERSION = "1.000";
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} }";