modules/WinPropertyBase.pm

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