modules/WorkspaceHelper.pm

   1 package WorkspaceHelper;
   2
   3 # ************************************************************
   4 # Description   : Base class and factory for all workspace helpers
   5 # Author        : Chad Elliott
   6 # Create Date   : 9/01/2004
   7 # $Id$
   8 # ************************************************************
   9
  10 # ************************************************************
  11 # Pragmas
  12 # ************************************************************
  13
  14 use strict;
  15
  16 # ************************************************************
  17 # Data Section
  18 # ************************************************************
  19
  20 my %required;
  21
  22 # ************************************************************
  23 # Subroutine Section
  24 # ************************************************************
  25
  26 sub get {
  27   my $type = shift;
  28
  29   ## Create the helper name
  30   $type =~ s/Creator/Helper/;
  31   $type =~ s/=HASH.*//;
  32
  33   ## If we can find a helper with this name, we will
  34   ## create a singleton of that type and return it.
  35   if (!$required{$type}) {
  36     foreach my $inc (@INC) {
  37       if (-r "$inc/$type.pm") {
  38         require "$type.pm";
  39         $required{$type} = $type->new();
  40         last;
  41       }
  42     }
  43
  44     ## If we can't find the helper, we just create an
  45     ## empty helper and return that.
  46     $required{$type} = new WorkspaceHelper() if (!$required{$type});
  47   }
  48
  49   return $required{$type};
  50 }
  51
  52
  53 sub new {
  54   my $class = shift;
  55   return bless {}, $class;
  56 }
  57
  58
  59 sub modify_value {
  60   my($self, $name, $value) = @_;
  61   return $value;
  62 }
  63
  64
  65 sub modify_libpath {
  66   #my $self    = shift;
  67   #my $str     = shift;
  68   #my $reldir  = shift;
  69   #my $libname = shift;
  70   return undef;
  71 }
  72
  73
  74 sub write_settings {
  75   #my $self   = shift;
  76   #my $fh     = shift;
  77   #my @locals = @_;
  78   return 1, undef;
  79 }
  80
  81
  82 sub perform_custom_processing {
  83   #my $self     = shift;
  84   #my $fh       = shift;
  85   #my $creator  = shift;
  86   #my $toplevel = shift;
  87 }
  88
  89 1;