view release on metacpan or  search on metacpan

inc/Alien/ROOT/Builder/Utility.pm  view on Meta::CPAN

sub aroot_install_arch_auto_dir {
  my( $build, $p ) = @_;
  my( $vol, $dir, $file ) = File::Spec->splitpath( $p || '' );
  File::Spec->catdir( $build->install_destination( 'arch' ), 'auto', 'Alien', 'ROOT',
                      File::Spec->splitdir( $dir ), $file );
}

sub aroot_touch {
  require ExtUtils::Command;
  local @ARGV = @_;
  ExtUtils::Command::touch();
}

1;

inc/inc_Module-Build/Module/Build/Base.pm  view on Meta::CPAN

sub new_from_context {
  my ($package, %args) = @_;

  $package->run_perl_script('Build.PL',[],[$package->unparse_args(\%args)]);
  return $package->resume;
}

sub current {
  # hmm, wonder what the right thing to do here is
  local @ARGV;
  return shift()->resume;
}

sub _construct {
  my ($package, %input) = @_;

  my $args   = delete $input{args}   || {};
  my $config = delete $input{config} || {};

  my $self = bless {

inc/inc_Module-Build/Module/Build/Base.pm  view on Meta::CPAN

    while (my ($k, $v) = each %$specs) {
        # Throw an error if specs conflict with our own.
        die "Option specification '$k' conflicts with a " . ref $self
          . " option of the same name"
          if $self->valid_property($k);
        push @specs, $k . (defined $v->{type} ? $v->{type} : '');
        push @specs, $v->{store} if exists $v->{store};
        $args->{$k} = $v->{default} if exists $v->{default};
    }

    local @ARGV = @argv; # No other way to dupe Getopt::Long

    # Get the options values and return them.
    # XXX Add option to allow users to set options?
    if ( @specs ) {
      Getopt::Long::Configure('pass_through');
      Getopt::Long::GetOptions($args, @specs);
    }

    return $args, @ARGV;
}