File Coverage

blib/lib/InlineX/XS/MM.pm

Criterion	Covered	Total	%
statement	12	31	38.7
branch	0	6	0.0
condition			n/a
subroutine	4	6	66.6
pod	0	1	0.0
total	16	44	36.3

package InlineX::XS::MM;
use strict;
use warnings;

our $VERSION = 0.01;

require InlineX::XS;
use ExtUtils::MakeMaker;
use ExtUtils::Manifest 'maniadd';

sub import {
    my $class = shift;
    my @args = @_;

    $InlineX::XS::PACKAGE = $InlineX::XS::PACKAGE = 1;
    $InlineX::XS::PACKAGER = $InlineX::XS::PACKAGER = 'InlineX::XS::MM';

    warn 'Setting PACKAGE and PACKAGER options';
    unshift(@INC, 'lib');
    chdir($args[0]) if defined $args[0];
    return 1;
}

sub hook_after_c2xs {
    my $class = shift;
    my $pkg = shift;

    warn 'Adding XS and C files to MANIFEST';
    $pkg =~ /([^:]+)$/;
    my $xs_file = $1 or die;
    my $c_file = "src/$xs_file.c"; # no File::Spec => MANIFEST
    $xs_file .= '.xs';
    my $args = {
        $xs_file => 'Added by '.__PACKAGE__,
        $c_file => 'Added by '.__PACKAGE__,
    };
    $args->{'INLINE.h'} = 'Added by '.__PACKAGE__
      if -e 'INLINE.h';

    maniadd($args);
    return 1;
}

1;