File Coverage

blib/lib/App/gimpgitbuild/API/GitBuild.pm

Criterion	Covered	Total	%
statement	11	42	26.1
branch	0	2	0.0
condition	0	10	0.0
subroutine	4	13	30.7
pod	7	7	100.0
total	22	74	29.7

package App::gimpgitbuild::API::GitBuild;
$App::gimpgitbuild::API::GitBuild::VERSION = '0.32.1';
use strict;
use warnings;
use 5.014;

use Moo;

has home_dir         => ( is => 'lazy' );
has install_base_dir => ( is => 'lazy' );

sub _build_home_dir
{
    return $ENV{HOME};
}

sub _build_install_base_dir
{
    my $self = shift;
    return $ENV{GIMPGITBUILD__BASE_INSTALL_DIR}
        // ( $self->home_dir . "/apps/graphics" );
}

sub mypaint_p
{
    my $self = shift;
    return $self->install_base_dir . "/libmypaint";
}

sub babl_p
{
    my $self = shift;
    return $self->install_base_dir . "/babl";
}

sub gimp_p
{
    my $self = shift;
    return $self->install_base_dir . "/gimp-devel";
}

sub gegl_p
{
    my $self = shift;
    return $self->install_base_dir . "/gegl";
}

sub gexiv2_p
{
    my $self = shift;
    return $self->gegl_p();
}

sub base_git_clones_dir
{
    my $self = shift;

    return $ENV{GIMPGITBUILD__BASE_CLONES_DIR}
        // ( $self->home_dir . "/Download/unpack/graphics/gimp" );
}

sub new_env
{
    my $self            = shift;
    my $gegl_p          = $self->gegl_p;
    my $gimp_p          = $self->gimp_p;
    my $babl_p          = $self->babl_p;
    my $mypaint_p       = $self->mypaint_p;
    my $PKG_CONFIG_PATH = join(
        ":",
        (
            map {
                my $p = $_;
                map { "$p/$_/pkgconfig" } qw# share lib64 lib  #
            } ( $babl_p, $gegl_p, $mypaint_p )
        ),
        ( $ENV{PKG_CONFIG_PATH} // '' )
    );
    my $LD_LIBRARY_PATH = join(
        ":",
        (
            map {
                my $p = $_;
                map { "$p/$_" } qw# lib64 lib  #
            } ( $gimp_p, $babl_p, $gegl_p, $mypaint_p )
        ),
        ( $ENV{LD_LIBRARY_PATH} // '' )
    );
    my $xdg_prefix =
"$gegl_p/share:$mypaint_p/share:$mypaint_p/share/pkgconfig:$babl_p/share";
    my $XDG_DATA_DIRS = (
        exists( $ENV{XDG_DATA_DIRS} )
        ? "$xdg_prefix:$ENV{XDG_DATA_DIRS}"
        : $xdg_prefix
    );
    return +{
        LD_LIBRARY_PATH => $LD_LIBRARY_PATH,
        PATH            => "$gegl_p/bin:$ENV{PATH}",
        PKG_CONFIG_PATH => $PKG_CONFIG_PATH,
        XDG_DATA_DIRS   => $XDG_DATA_DIRS,
    };
}

1;

__END__