File Coverage

blib/lib/OS/Package/Role/Build.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

use v5.14.0;
use warnings;

package OS::Package::Role::Build;

# ABSTRACT: Provides build method for OS::Package object.
our $VERSION = '0.2.5'; # VERSION

use OS::Package::Log;
use File::Basename qw( basename dirname );
use IPC::Cmd qw( can_run run );
use Env qw( $CC $HOME );
use File::Temp;
use Try::Tiny;
use Role::Tiny;
use Path::Tiny;
use Template;

sub build {
    my $self = shift;

    my $template = Path::Tiny->tempfile;

    my $temp_sh = sprintf '%s/install.sh', $self->artifact->workdir;

    my $vars = {
        FAKEROOT => $self->fakeroot,
        WORKDIR  => $self->artifact->workdir,
        PREFIX   => $self->prefix,
        DISTFILE => $self->artifact->distfile
    };

    if ( defined $self->install ) {
        $template->spew( $self->install );
    }
    else {
        return 1;
    }

    if ( ! path($self->fakeroot)->exists ) {
        path($self->fakeroot)->mkpath;
    }

    my $tt = Template->new( { INCLUDE_PATH => dirname($template) } );

    $tt->process( basename( $template->absolute ), $vars, $temp_sh );

    my $command = [ can_run('bash'), '-e', $temp_sh ];

    $LOGGER->info( sprintf 'building: %s', $self->name );

    if ( defined $self->artifact->archive ) {
        chdir path($self->artifact->archive->extract_path)->realpath;
    }

    my ( $success, $error_message, $full_buf, $stdout_buf, $stderr_buf ) =
        run( command => $command );

    foreach ( @{$full_buf} ) {
        $LOGGER->debug($_);
    }

    chdir $HOME;

    if ( !$success ) {
        $LOGGER->logcroak( sprintf "install script failed: %s\n",
            $error_message );

        return 2;
    }

    return 1;
}

__END__