modules/Depgen/DependencyWriterFactory.pm

   1 package DependencyWriterFactory;
   2
   3 # ************************************************************
   4 # Description   : Create DependencyWriter objects.
   5 # Author        : Chad Elliott
   6 # Create Date   : 5/23/2003
   7 # ************************************************************
   8
   9 # ************************************************************
  10 # Pragmas
  11 # ************************************************************
  12
  13 use strict;
  14
  15 use DependencyWriter;
  16
  17 # ************************************************************
  18 # Data Section
  19 # ************************************************************
  20
  21 my $writers = {};
  22
  23 # ************************************************************
  24 # Subroutine Section
  25 # ************************************************************
  26
  27 sub register {
  28   $writers = shift;
  29 }
  30
  31
  32 sub create {
  33   return $$writers{$_[0]}->new() if (defined $$writers{$_[0]});
  34
  35   print STDERR "WARNING: Invalid dependency writer type: $_[0]\n";
  36   return new DependencyWriter();
  37 }
  38
  39
  40 1;