File Coverage

blib/lib/Alien/Build/Plugin/Probe/Override.pm

Criterion	Covered	Total	%
statement	14	28	50.0
branch	0	10	0.0
condition			n/a
subroutine	5	7	71.4
pod	1	1	100.0
total	20	46	43.4

package Alien::Build::Plugin::Probe::Override;

use strict;
use warnings;
use 5.008001;
use Alien::Build::Plugin;
use Path::Tiny qw( path );

# ABSTRACT: Override on a per-alien basis
our $VERSION = '0.01'; # VERSION


sub init
{
  my($self, $meta) = @_;

  $meta->register_hook(
    override => sub {
      my($build) = @_;

      if(Alien::Build::rc->can('override'))
      {
        foreach my $try (qw( stage prefix ))
        {
          my $class = path($build->install_prop->{$try})->basename;
          if($class =~ /^Alien-/)
          {
            my $override = Alien::Build::rc::override($class);
            if($override)
            {
              if($override =~ /^(system|share|default)$/)
              {
                $build->log("ovveride for $class => $override");
                return $override;
              }
              else
              {
                $build->log("override for $class => $override is not valid");
              }
            }
          }
        }
      }

      $ENV{ALIEN_INSTALL_TYPE} || '';
    },
  );
}

1;

__END__