File Coverage

blib/lib/Alien/Build/Plugin/PkgConfig/PPWrapper.pm

Criterion	Covered	Total	%
statement	20	53	37.7
branch	0	12	0.0
condition	0	6	0.0
subroutine	7	9	77.7
pod	1	1	100.0
total	28	81	34.5

package Alien::Build::Plugin::PkgConfig::PPWrapper;

use strict;
use warnings;
use 5.008001;
use Alien::Build;
use Alien::Build::Plugin;
use Path::Tiny qw /path/;
use File::Which ();

our $VERSION = '0.03'; # VERSION


sub init {
    my($self, $meta) = @_;

    $meta->around_hook ( build => sub {
        my ($orig, $build, @args) = @_;

        return if $build->install_type ne 'share';
        return if $build->meta_prop->{out_of_source};

        #  wrapper is only needed on windows
        return $orig->($build, @args)
          if not $^O =~ /mswin/i;

        my $pk = File::Which::which ($ENV{PKG_CONFIG})
              || File::Which::which ('ppkg-config')
              || File::Which::which ('pkg-config');

        if (!defined $pk) {
            $build->log ("Could not locate ppkg-config or pkg-config in your path\n");
            return $orig->($build, @args);
        }

        $pk =~ s/\.bat$//i;
        if (!(-e $pk && -e "$pk.bat")) {
            $build->log ("$pk unlikely to be pure perl");
            return $orig->($build, @args);
        }

        my $perl = $^X;
        $perl =~ s/\.exe$//i;
        foreach my $path ($perl, $pk) {
            $path =~ s{\\}{/}g;
            $path =~ s{^([a-z]):/}{/$1/}i;
            $path =~ s{\s}{\\ }g;
        }

        my $wrapper = <<'EOWRAPPER'
#!perl
system ('##perl##', '##pk##', @ARGV);
exit $?;
EOWRAPPER
  ;

        $wrapper =~ s/##perl##/$perl/gsm;
        $wrapper =~ s/##pk##/$pk/;

        $build->log ("Pure perl pkg-config detected on windows.\n");
        $build->log ("Wrapping $pk in shell script to cope with MSYS perl and paths.\n");
        my $fname = Path::Tiny->new(File::Temp::tempdir( CLEANUP => 1 ))->child('pkg-config');
        open my $fh, '>', $fname
          or die "Unable to open pkg-config wrapper $fname, $!";
        print {$fh} $wrapper;
        close ($fh);
        $build->log ("Setting \$ENV{PKG_CONFIG} to point to $fname\n");

        local $ENV{PKG_CONFIG} = $fname;

        return $orig->($build, @args);
    });

}

1;

__END__