modules/Depgen/ObjectGeneratorFactory.pm

   1 package ObjectGeneratorFactory;
   2
   3 # ************************************************************
   4 # Description   : Create ObjectGenerator objects.
   5 # Author        : Chad Elliott
   6 # Create Date   : 5/23/2003
   7 # ************************************************************
   8
   9 # ************************************************************
  10 # Pragmas
  11 # ************************************************************
  12
  13 use strict;
  14
  15 use ObjectGenerator;
  16
  17 # ************************************************************
  18 # Data Section
  19 # ************************************************************
  20
  21 my $generators = {};
  22
  23 # ************************************************************
  24 # Subroutine Section
  25 # ************************************************************
  26
  27 sub register {
  28   $generators = shift;
  29 }
  30
  31
  32 sub create {
  33   return $$generators{$_[0]}->new() if (defined $$generators{$_[0]});
  34
  35   print STDERR "WARNING: Invalid object generator type: $_[0]\n";
  36   return new ObjectGenerator();
  37 }
  38
  39
  40 1;