File Coverage

blib/lib/Installer.pm

Criterion	Covered	Total	%
statement	27	32	84.3
branch	0	4	0.0
condition			n/a
subroutine	8	10	80.0
pod			n/a
total	35	46	76.0

package Installer;
BEGIN {
  $Installer::AUTHORITY = 'cpan:GETTY';
}
# ABSTRACT: What does it do? It installs stuff....
$Installer::VERSION = '0.903';
use strict;
use warnings;
use Installer::Target;
use Cwd;

our @functions = qw(

  run
  export
  unset
  url
  file
  perl
  cpanm
  pip
  perldeps
  dzildeps
  postgres

);

sub import {
  my $pkg = caller;
  {
    no strict 'refs';
    *{"$pkg\::install_to"} = sub {
      my ( $target_directory, $installer_code, $source_directory ) = @_;
      my $installer_target = Installer::Target->new(
        target_directory => $target_directory,
        installer_code => $installer_code,
        source_directory => defined $source_directory
          ? $source_directory
          : getcwd(),
      );
      $installer_target->installation;
    };
  }
  for my $command (@functions) {
    my $function = 'install_'.$command;
    no strict 'refs';
    *{"$pkg\::$command"} = sub {
      die "Not inside installation" unless defined $Installer::Target::current;
      $Installer::Target::current->$function(@_);
    };
  }
}

1;

__END__