modules/VC11ProjectCreator.pm

   1 package VC11ProjectCreator;
   2
   3 # ************************************************************
   4 # Description   : A VC11 Project Creator
   5 # Author        : Johnny Willemsen
   6 # Create Date   : 12/12/2011
   7 # ************************************************************
   8
   9 # ************************************************************
  10 # Pragmas
  11 # ************************************************************
  12
  13 use strict;
  14
  15 use VC10ProjectCreator;
  16
  17 use vars qw(@ISA);
  18 @ISA = qw(VC10ProjectCreator);
  19
  20 ## NOTE: We call the constant as a function to support Perl 5.6.
  21 my %info = (Creator::cplusplus() => {'ext'      => '.vcxproj',
  22                                      'dllexe'   => 'vc11exe',
  23                                      'libexe'   => 'vc11libexe',
  24                                      'dll'      => 'vc11dll',
  25                                      'lib'      => 'vc11lib',
  26                                      'template' => [ 'vc10', 'vc10filters' ],
  27                                     },
  28            );
  29
  30 # ************************************************************
  31 # Subroutine Section
  32 # ************************************************************
  33
  34 sub get_info_hash {
  35   my($self, $key) = @_;
  36
  37   ## If we have the setting in our information map, the use it.
  38   return $info{$key} if (defined $info{$key});
  39
  40   ## Otherwise, see if our parent type can take care of it.
  41   return $self->SUPER::get_info_hash($key);
  42 }
  43
  44 1;