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;