File Coverage

blib/lib/Alien/FFI.pm

Criterion	Covered	Total	%
statement	15	31	48.3
branch	0	4	0.0
condition			n/a
subroutine	6	13	46.1
pod			n/a
total	21	48	43.7

package Alien::FFI;

use strict;
use warnings;
use 5.008001;
use Carp qw( croak );

# ABSTRACT: Get libffi compiler and linker flags
our $VERSION = '0.15_01'; # TRIAL VERSION


sub new
{
  my($class) = @_;
  bless {}, $class;
}

my $pkg_config;

foreach my $try ($ENV{PKG_CONFIG}, 'pkg-config', 'pkgconf')
{
  next unless defined $try;
  require IPC::Cmd;
  if(IPC::Cmd::can_run($try))
  {
    $pkg_config = $try;
    last;
  }
}

unless($pkg_config)
{
  if(eval q{ use PkgConfig (); 1 })
  {
    $pkg_config = "$^X $INC{'PkgConfig.pm'}";
  }
}

unless($pkg_config)
{
  die "unable to find pkg-config, pkgconf or PkgConfig.pm";
}

sub install_type
{
  'system';
}

my $config;

sub config
{
  my(undef, $key) = @_;

  unless($config)
  {
    my $version = `$pkg_config --modversion libffi`;
    die "package libffi not found" if $?;
    chomp $version;
    $config = {
      version    => $version,
      pkg_config => $pkg_config,
    };
  }

  $config->{$key};
}

foreach my $linkage ('share','static')
{
  foreach my $name ('cflags','libs')
  {
    my $value;

    my $flags = "--$name";
    my $subname = $name;
    if($linkage eq 'static')
    {
      $flags .= ' --static' if $linkage eq 'static';
      $subname .= '_static' if $linkage
    }

    my $sub = sub {
      unless(defined $value)
      {
        print "command = $pkg_config $flags libffi\n";
        $value = `$pkg_config $flags libffi`;
        die "package libffi not found" if $?;
        chomp $value;
      }
      $value;
    };

    no strict 'refs';
    *$subname = $sub;
  }
}

sub dist_dir
{
  croak "Failed to find share dir for dist 'Alt-Alien-FFI-System'";
}

sub bin_dir { () }
sub dynamic_libs { () }
sub version { shift->config('version') }

1;

__END__