File Coverage

builder/MyBuilder.pm

Criterion	Covered	Total	%
statement	15	23	65.2
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	0	2	0.0
total	20	31	64.5

package builder::MyBuilder;
use strict;
use warnings;
use base qw(Module::Build);

use XS::Parse::Keyword::Builder;

sub new {
    my ($class, %args) = @_;

    my $build = $class->SUPER::new(%args);

    my @flags = @{ $build->extra_compiler_flags };
    push @flags, XS::Parse::Keyword::Builder->extra_compiler_flags;
    push @flags, '-Ihax';

    $build->extra_compiler_flags( @flags );

    return $build;
}

sub ACTION_code {
    my ($self, @args) = @_;

    XS::Parse::Keyword::Builder->write_XSParseKeyword_h;

    $self->SUPER::ACTION_code(@args);
}

1;