modules/GHSPropertyBase.pm

   1 package GHSPropertyBase;
   2
   3 # ************************************************************
   4 # Description   : A GHS property base module.
   5 # Author        : Chad Elliott
   6 # Create Date   : 3/9/2010
   7 # ************************************************************
   8
   9 # ************************************************************
  10 # Pragmas
  11 # ************************************************************
  12
  13 use strict;
  14
  15 # ************************************************************
  16 # Data Section
  17 # ************************************************************
  18
  19 our $ghsunix = 'MPC_GHS_UNIX';
  20
  21 # ************************************************************
  22 # Subroutine Section
  23 # ************************************************************
  24
  25 sub get_properties {
  26   my $self = shift;
  27
  28   ## Get the base class properties and add the properties that we
  29   ## support.
  30   my $props = $self->Creator::get_properties();
  31
  32   ## This project creator can work for UNIX and Windows.  Set the
  33   ## property based on the environment variable.
  34   $$props{'windows'} = 1 if (!defined $ENV{$ghsunix});
  35
  36   return $props;
  37 }
  38
  39 1;