ExtUtils::XSpp::Cmd - implementation of xspp

ExtUtils-XSpp documentation Contained in the ExtUtils-XSpp distribution.

Index

Code Index:

NAME

Top

ExtUtils::XSpp::Cmd - implementation of xspp

SYNOPSIS

Top

  perl -MExtUtils::XSpp::Cmd -e xspp -- <xspp options/arguments>

In Foo.xs

  INCLUDE_COMMAND: $^X -MExtUtils::XSpp::Cmd -e xspp -- <xspp options/arguments>

Using ExtUtils::XSpp::Cmd is equivalent to using the xspp command line script, except that there is no guarantee for xspp to be installed in the system PATH.

DOCUMENTATION

Top

See ExtUtils::XSpp, xspp.

ExtUtils-XSpp documentation Contained in the ExtUtils-XSpp distribution. 
package ExtUtils::XSpp::Cmd;

use strict;


use Exporter 'import';
use Getopt::Long;

use ExtUtils::XSpp::Driver;

our @EXPORT = qw(xspp);

sub xspp {
    my( @typemap_files, $xsubpp, $xsubpp_args );
    GetOptions( 'typemap=s'       => \@typemap_files,
                'xsubpp:s'        => \$xsubpp,
                'xsubpp-args=s'   => \$xsubpp_args,
                );
    $xsubpp = 'xsubpp' if defined $xsubpp && !length $xsubpp;

    my $driver = ExtUtils::XSpp::Driver->new
      ( typemaps    => \@typemap_files,
        file        => shift @ARGV,
        xsubpp      => $xsubpp,
        xsubpp_args => $xsubpp_args,
        );
    my $success = $driver->process ? 0 : 1;

    exit $success unless defined wantarray;
    return $success;
}

1;