modules/BorlandPropertyBase.pm

   1 package BorlandPropertyBase;
   2
   3 # ************************************************************
   4 # Description   : A Borland base module for properties.
   5 # Author        : Chad Elliott
   6 # Create Date   : 5/5/2009
   7 # ************************************************************
   8
   9 # ************************************************************
  10 # Pragmas
  11 # ************************************************************
  12
  13 use strict;
  14 use WinPropertyBase;
  15
  16 our @ISA = qw(WinPropertyBase);
  17
  18 # ************************************************************
  19 # Subroutine Section
  20 # ************************************************************
  21
  22 sub get_properties {
  23   my $self = shift;
  24
  25   ## Get the base class properties and add the properties that we
  26   ## support.
  27   my $props = $self->WinPropertyBase::get_properties();
  28
  29   ## All projects that use this base class are for Borland compilers.
  30   $$props{'borland'} = 1;
  31
  32   return $props;
  33 }
  34
  35
  36 1;