modules/VC71ProjectCreator.pm

   1 package VC71ProjectCreator;
   2
   3 # ************************************************************
   4 # Description   : A VC7.1 Project Creator
   5 # Author        : Chad Elliott
   6 # Create Date   : 4/17/2003
   7 # ************************************************************
   8
   9 # ************************************************************
  10 # Pragmas
  11 # ************************************************************
  12
  13 use strict;
  14
  15 use VC7ProjectCreator;
  16
  17 use vars qw(@ISA);
  18 @ISA = qw(VC7ProjectCreator);
  19
  20 # ************************************************************
  21 # Data Section
  22 # ************************************************************
  23
  24 my %config = ('vcversion'    => '7.10',
  25               'forloopscope' => 'TRUE',
  26              );
  27
  28 # ************************************************************
  29 # Subroutine Section
  30 # ************************************************************
  31
  32 sub get_configurable {
  33   my($self, $name) = @_;
  34   return $config{$name};
  35 }
  36
  37 1;