modules/VCPropertyBase.pm

   1 package VCPropertyBase;
   2
   3 # ************************************************************
   4 # Description   : A VC 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 use WinPropertyBase;
  16
  17 use vars qw(@ISA);
  18 @ISA = qw(WinPropertyBase);
  19
  20 # ************************************************************
  21 # Subroutine Section
  22 # ************************************************************
  23
  24 sub get_properties {
  25   my $self = shift;
  26
  27   ## Get the base class properties and add the properties that we
  28   ## support.
  29   my $props = $self->WinPropertyBase::get_properties();
  30
  31   ## All projects that use this base class are for Microsoft compilers.
  32   $$props{'microsoft'} = 1;
  33
  34   return $props;
  35 }
  36
  37
  38 1;