view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use v5.38;
use lib 'builder';
use Alien::SDL3_ttf::Builder;
Alien::SDL3_ttf::Builder->new->Build_PL();

builder/Alien/SDL3_ttf/Builder.pm  view on Meta::CPAN

    method Build(@args) {
        my $method = $self->can( 'step_' . $action );
        $method // die "No such action '$action'\n";
        exit $method->($self);
    }

    method Build_PL() {
        say sprintf 'Creating new Build script for %s %s', $meta->name, $meta->version;
        $self->write_file( 'Build', sprintf <<'', $^X, __PACKAGE__, __PACKAGE__ );
#!%s
use lib 'builder';
use %s;
use Getopt::Long qw[GetOptionsFromArray];
my %%opts = ( @ARGV && $ARGV[0] =~ /\A\w+\z/ ? ( action => shift @ARGV ) : () );
GetOptionsFromArray \@ARGV, \%%opts, qw[install_base=s install_path=s%% installdirs=s destdir=s prefix=s config=s%% uninst:1 verbose:1 dry_run:1 jobs=i prebuilt:1];
%s->new(%%opts)->Build();

        make_executable('Build');
        my @env = defined $ENV{PERL_MB_OPT} ? split_like_shell( $ENV{PERL_MB_OPT} ) : ();
        $self->write_file( '_build_params', encode_json( [ \@env, \@ARGV ] ) );
        if ( my $dynamic = $meta->custom('x_dynamic_prereqs') ) {

t/00_compile.t  view on Meta::CPAN

use Test2::V0 '!subtest';
use Test2::Util::Importer 'Test2::Tools::Subtest' => ( subtest_streamed => { -as => 'subtest' } );
use lib 'lib', '../lib', 'blib/lib', '../blib/lib';
use Alien::SDL3_ttf;
#
diag 'Alien::SDL3_ttf::VERSION == ' . $Alien::SDL3_ttf::VERSION;
#
diag 'Support:';
diag sprintf '  - %s', $_,
    for grep {defined}
    map { Alien::SDL3_ttf->features->{$_}{okay} ? $_ . ' v' . Alien::SDL3_ttf->features->{$_}{version} : () } qw[SDL3 SDL2_image SDL2_mixer SDL2_ttf];
diag 'Libs:';
diag '  - ' . $_ for sort Alien::SDL3_ttf->dynamic_libs;