Help language development. Donate to The Perl Foundation

Algorithm::LBFGS cpan:TITSUKI last updated on 2019-02-11

Build.pm
use LibraryMake;

class Build {
    method build($workdir) {
	my $srcdir = "$workdir/src";
	my %vars = get-vars($workdir);
	%vars<lbfgs> = $*VM.platform-library-name('lbfgs'.IO);
	mkdir "$workdir/resources" unless "$workdir/resources".IO.e;
	mkdir "$workdir/resources/libraries" unless "$workdir/resources/libraries".IO.e;
	process-makefile($srcdir, %vars);
	my $goback = $*CWD;
	chdir($srcdir);
	shell(%vars<MAKE>);
	chdir($goback);
    }

    method isa($what) {
	return True if $what.^name eq 'Panda::Builder';
	callsame;
    }
}