cbuilder-activestate-32.pl

use strict;
use warnings;
use Path::Tiny qw( path );
use ExtUtils::CBuilder;
use ExtUtils::ParseXS;

path('Foo.xs')->spew(<<'EOF');
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

MODULE = Foo PACKAGE = Foo

const char *hello()
  CODE:
    RETVAL = "hello world\n";
  OUTPUT:
    RETVAL
EOF

ExtUtils::ParseXS->new->process_file(
  filename => 'Foo.xs',
  output   => 'Foo.c',
  versioncheck => 0,
  prototypes   => 0,
);

my $cb = ExtUtils::CBuilder->new;

my $obj = $cb->compile(
  source              => 'Foo.c',
  extra_compile_flags => [],
);

my $lib = $cb->link(
  objects            => [$obj],
  module_name        => 'Foo',
  extra_linker_flags => [],
);

die 'link returned undef' unless defined $lib;
print "lib = $lib\n";
die 'link returned file not there' unless -f $lib;