File Coverage

bin/xsone

Criterion	Covered	Total	%
statement	25	25	100.0
branch	11	12	91.6
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	41	42	97.6

#!/usr/bin/env perl
# xsone - Combine multiple XS files into a single XS file
#
# See ExtUtils::XSOne for documentation.

use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
use ExtUtils::XSOne;

my $src_dir;
my $output;
my @order;
my $verbose = 0;
my $help    = 0;

GetOptions(
    'src|s=s'     => \$src_dir,
    'out|o=s'     => \$output,
    'order=s@'    => \@order,
    'verbose|v'   => \$verbose,
    'help|h|?'    => \$help,
) or pod2usage(2);

pod2usage(1) if $help;
pod2usage("--src is required") unless $src_dir;
pod2usage("--out is required") unless $output;

my $count = ExtUtils::XSOne->combine(
    src_dir => $src_dir,
    output  => $output,
    order   => @order ? \@order : undef,
    verbose => $verbose,
);

print "Combined $count files into $output\n" unless $verbose;

__END__