File Coverage

lib/Alien/OpenMP.pm

Criterion	Covered	Total	%
statement	25	27	92.5
branch	2	2	100.0
condition			n/a
subroutine	8	9	88.8
pod	3	3	100.0
total	38	41	92.6

package Alien::OpenMP;

use strict;
use warnings;
use Config ();

our $VERSION = '0.003002';

# set as package variable since %Config::Config is read only, (per docs and in practice)
our $CCNAME = $Config::Config{ccname};

# per-compiler meta data, each supported compiler will require an entry

our $omp_flags = {
    # used by ccflags, lddlflags
    gcc => '-fopenmp',
};

our $omp_check_libs = {
    # used by _check_libs, intended for use by Devel::CheckLib
    gcc => [qw/gomp/],
};

our $omp_check_headers = {
    # used by _check_headers, intended for use by Devel::CheckLib
    gcc => [qw/omp.h/],
};

# "public" Alien::Base method implementations

sub cflags {
    my $cn = $CCNAME;
    _assert_os($omp_flags, $cn);
    return $omp_flags->{$cn};
}

# we can reuse cflags for gcc/gomp; hopefully this will
# remain the case for all supported compilers

sub lddlflags {
    my $cn = $CCNAME;
    _assert_os($omp_flags, $cn);
    return $omp_flags->{$cn};
}

# Inline related methods

sub Inline {
  my ($self, $lang) = @_;
  return {
    CCFLAGS     => cflags(),
    LDDLFLAGS   => join( q{ }, $Config::Config{lddlflags}, lddlflags() ),
  };
}

# "private" internal helper subs

sub _assert_os {
    my ($omp, $cn) = @_;
    # OpenMP pragmas live behind source code comments
    if ( not defined $omp->{$cn} ) {
      # dies the same way as ExtUtils::MakeMaker::os_unsupported()
      die qq{OS unsupported\n};
    }
    return;
}

sub _check_libs {
    my $cn = $CCNAME;
    _assert_os($omp_check_libs, $cn);
    return $omp_check_libs->{$cn};
}

sub _check_headers {
    my $cn = $CCNAME;
    _assert_os($omp_check_headers, $cn);
    return $omp_check_headers->{$cn};
}

1;

__END__