File Coverage

blib/lib/Perl/Build/Built.pm

Criterion	Covered	Total	%
statement	39	43	90.7
branch	10	16	62.5
condition	2	3	66.6
subroutine	12	13	92.3
pod	7	7	100.0
total	70	82	85.3

package Perl::Build::Built;

use strict;
use warnings;
use utf8;

use 5.008001;
our $VERSION = '1.33';

use Carp ();
use File::Spec::Functions qw( catdir catfile );

sub run_env {
    my ( $self, @args ) = @_;
    my $config = {};
    if ( ref $args[0] eq 'HASH' ) {
        $config = %{ shift @args };
    }
    if ( $args[0] and ref $args[0] eq 'CODE' ) {
        $config->{code} = shift @args;
    }
    if (@args) {
        Carp::croak( '->run_env(\%config,\&code)'
              . ' or ->run_env(\&code)'
              . ' or ->run_env(\%config)' );
    }
    local $ENV{PATH} = $self->combined_bin_path;
    my $combined_man_path = $self->combined_man_path;
    local $ENV{MANPATH} = $combined_man_path if $combined_man_path;
    delete local $ENV{PERL5LIB};
    return $config->{code}->();
}

sub new {
    my ( $self, $args ) = @_;
    $args = {} unless defined $args;
    Carp::croak '->new(\%config) required' if not ref $args eq 'HASH';
    Carp::croak 'installed_path is a mandatory parameter'
      unless exists $args->{installed_path};
    return bless $args, $self;
}

sub installed_path {
    return $_[0]->{installed_path};
}

sub bin_path {
    return catdir( $_[0]->{installed_path}, 'bin' );
}

sub man_path {
    return catdir( $_[0]->{installed_path}, 'man' );
}

sub combined_bin_path {
    return $_[0]->bin_path . ':' . $ENV{PATH};
}

sub combined_man_path {
    if ( -d $_[0]->man_path ) {
        return $_[0]->man_path . ':' . $ENV{MANPATH};
    }
    return $ENV{MANPATH};
}

1;

__END__