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;