File Coverage

inc/ILCPPConfig/CompilerGuess.pm

Criterion	Covered	Total	%
statement	30	34	88.2
branch	3	8	37.5
condition	2	6	33.3
subroutine	7	7	100.0
pod	0	1	0.0
total	42	56	75.0

package ILCPPConfig::CompilerGuess;

use strict;
use warnings;
use ExtUtils::CppGuess;
use Exporter;
use Config;

our @ISA       = 'Exporter';
our @EXPORT_OK = 'guess_compiler';
our $VERSION   = '0.01';

# Repackage results from ExtUtils::CppGuess into a form that is most useful
# to Inline::CPP's Makefile.PL.

sub guess_compiler {

  my( $cc_guess, $libs_guess, $guesser, %configuration );

  if( $Config::Config{osname} eq 'freebsd'
    && $Config::Config{osvers} =~ /^(\d+)/
    && $1 >= 10
  ){
    $cc_guess = 'clang++';
    $libs_guess = '-lc++';
  }
  else {
    $guesser = ExtUtils::CppGuess->new;
    %configuration = $guesser->module_build_options;
    if( $guesser->is_gcc ) {
      if( $Config{cc} eq 'clang' ) {
        $cc_guess = 'clang++';
      } else {
        $cc_guess = 'g++';
      }
    }
    elsif ( $guesser->is_msvc ) {
      $cc_guess = 'cl';
    }

    $cc_guess .= $configuration{extra_compiler_flags};
    $libs_guess = $configuration{extra_linker_flags};

    ( $cc_guess, $libs_guess )
      = map { _trim_whitespace($_) } ( $cc_guess, $libs_guess );
  }
  return ( $cc_guess, $libs_guess );
}

sub _trim_whitespace {
  my $string = shift;
  $string =~ s/^\s+|\s+$//g;
  return $string;
}

1;