dependencywriterfactory.pm

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

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

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


1;