File Coverage

blib/lib/Minilla/Profile/XS.pm

Criterion	Covered	Total	%
statement	30	49	61.2
branch			n/a
condition			n/a
subroutine	10	12	83.3
pod	0	2	0.0
total	40	63	63.4

package Minilla::Profile::XS;
use strict;
use warnings;
use utf8;
use parent qw(Minilla::Profile::ModuleBuild);

use File::Spec::Functions qw(catfile);
use File::Basename qw(dirname);
use Data::Section::Simple qw(get_data_section);

use Minilla::Gitignore;
use Minilla::Util qw(require_optional);
use Minilla::Logger;

sub module_pm_src {
    join("\n",
        'use XSLoader;',
        'XSLoader::load(__PACKAGE__, $VERSION);'
    );
}

sub generate {
    my $self = shift;

    require_optional( 'Devel/PPPort.pm', 'PPPort is required for XS support' );

    $self->render('Module.pm', catfile('lib', $self->path));
    $self->render('Module.xs', catfile('lib', dirname($self->path), $self->suffix . '.xs'));

    my $ppport = catfile(dirname(catfile('lib', $self->path)), 'ppport.h');
    infof("Writing ppport.h: %s\n", $ppport);
    Devel::PPPort::WriteFile($ppport);

    $self->render('Changes');
    $self->render('t/00_compile.t');
    $self->render('t/01_simple.t');
    $self->render('github_actions_test.yml', catfile('.github', 'workflows', 'test.yml'));

    $self->render('.gitignore');
    my $gi = Minilla::Gitignore->load('.gitignore');
    $gi->add(catfile('lib', dirname($self->path), $self->suffix . '.c'));
    $gi->add("!$ppport"); # Import ppport.h!
    $gi->save('.gitignore');

    $self->write_file('LICENSE', Minilla::License::Perl_5->new(
        holder => sprintf('%s <%s>', $self->author, $self->email)
    )->fulltext);

    $self->render('cpanfile');
}

1;
__DATA__