dependencywriterfactory.pm

ace开发环境 用来开发网络程序 其运用了设计模式、多平台、C++等多种知识

package DependencyWriterFactory;

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

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

use strict;

use DependencyWriter;

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

my($writers) = {};

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

sub register {
  $writers = shift;
}


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

  print STDERR "WARNING: Invalid dependency writer type: $_[0]\n";
  return new DependencyWriter();
}


1;