objectgeneratorfactory.pm

最新的版本ACE-5.6.8,刚从外文网上搬下,与大家分享.

package ObjectGeneratorFactory;

# ************************************************************
# Description   : Create ObjectGenerator objects.
# Author        : Chad Elliott
# Create Date   : 5/23/2003
# ************************************************************

# ************************************************************
# Pragmas
# ************************************************************

use strict;

use ObjectGenerator;

# ************************************************************
# Data Section
# ************************************************************

my $generators = {};

# ************************************************************
# Subroutine Section
# ************************************************************

sub register {
  $generators = shift;
}


sub create {
  return $$generators{$_[0]}->new() if (defined $$generators{$_[0]});

  print STDERR "WARNING: Invalid object generator type: $_[0]\n";
  return new ObjectGenerator();
}


1;