objectgeneratorfactory.pm

来自「ace开发环境 用来开发网络程序 其运用了设计模式、多平台、C++等多种知识」· PM 代码 · 共 43 行

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 {
  if (defined $$generators{$_[0]}) {
    return $$generators{$_[0]}->new();
  }

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


1;