Help language development. Donate to The Perl Foundation

Sys::Utmp cpan:JSTOWE last updated on 2019-12-18

Build.pm
#!perl6

use v6.c;

use LibraryMake;
use Shell::Command;

class Build {
	method build($workdir) {
    	my $srcdir = $workdir.IO.child('src').Str;
    	my Str $destdir = "$workdir/lib/../resources/libraries";
    	mkpath $destdir;
    	my %vars = get-vars($destdir);
    	%vars<utmphelper> = $*VM.platform-library-name('utmphelper'.IO).Str;
        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;
    }

}
# vim: ft=perl6 expandtab sw=4