#line 1
package Module::Install::Can;

use strict;
use Config                ();
use ExtUtils::MakeMaker   ();
use Module::Install::Base ();

use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
    $VERSION = '1.14';
    @ISA     = 'Module::Install::Base';
    $ISCORE  = 1;
}

# check if we can load some module
### Upgrade this to not have to load the module if possible
sub can_use {
    my ($self, $mod, $ver) = @_;
    $mod =~ s{::|\\}{/}g;
    $mod .= '.pm' unless $mod =~ /\.pm$/i;

    my $pkg = $mod;
    $pkg =~ s{/}{::}g;
    $pkg =~ s{\.pm$}{}i;

    local $@;
    eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# Check if we can run some command
sub can_run {
    my ($self, $cmd) = @_;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next if $dir eq '';
        require File::Spec;
        my $abs = File::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs or $abs = MM->maybe_command($abs));
    }

    return;
}

# Can our C compiler environment build XS files
sub can_xs {
    my $self = shift;

    # Ensure we have the CBuilder module
    $self->configure_requires( 'ExtUtils::CBuilder' => 0.27 );

    # Do we have the configure_requires checker?
    local $@;
    eval "require ExtUtils::CBuilder;";
    if ( $@ ) {
        # They don't obey configure_requires, so it is
        # someone old and delicate. Try to avoid hurting
        # them by falling back to an older simpler test.
        return $self->can_cc();
    }

    # Do we have a working C compiler
    my $builder = ExtUtils::CBuilder->new(
        quiet => 1,
    );
    unless ( $builder->have_compiler ) {
        # No working C compiler
        return 0;
    }

    # Write a C file representative of what XS becomes
    require File::Temp;
    my ( $FH, $tmpfile ) = File::Temp::tempfile(
        "compilexs-XXXXX",
        SUFFIX => '.c',
    );
    binmode $FH;
    print $FH <<'END_C';
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

int main(int argc, char **argv) {
    return 0;
}

int boot_sanexs() {
    return 1;
}

END_C
    close $FH;

    # Can the C compiler access the same headers XS does
    my @libs   = ();
    my $object = undef;
    eval {
        local $^W = 0;
        $object = $builder->compile(
            source => $tmpfile,
        );
        @libs = $builder->link(
            objects     => $object,
            module_name => 'sanexs',
        );
    };
    my $result = $@ ? 0 : 1;

    # Clean up all the build files
    foreach ( $tmpfile, $object, @libs ) {
        next unless defined $_;
        1 while unlink;
    }

    return $result;
}

# Can we locate a (the) C compiler
sub can_cc {
    my $self   = shift;
    my @chunks = split(/ /, $Config::Config{cc}) or return;

    # $Config{cc} may contain args; try to find out the program part
    while (@chunks) {
        return $self->can_run("@chunks") || (pop(@chunks), next);
    }

    return;
}

# Fix Cygwin bug on maybe_command();
if ( $^O eq 'cygwin' ) {
    require ExtUtils::MM_Cygwin;
    require ExtUtils::MM_Win32;
    if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
        *ExtUtils::MM_Cygwin::maybe_command = sub {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
                ExtUtils::MM_Win32->maybe_command($file);
            } else {
                ExtUtils::MM_Unix->maybe_command($file);
            }
        }
    }
}

1;

__END__

#line 236
