| Line | |
|---|
| 1 | package ExtUtils::MakeMaker::Config;
|
|---|
| 2 |
|
|---|
| 3 | $VERSION = '0.02';
|
|---|
| 4 |
|
|---|
| 5 | use strict;
|
|---|
| 6 | use Config ();
|
|---|
| 7 |
|
|---|
| 8 | # Give us an overridable config.
|
|---|
| 9 | use vars qw(%Config);
|
|---|
| 10 | %Config = %Config::Config;
|
|---|
| 11 |
|
|---|
| 12 | sub import {
|
|---|
| 13 | my $caller = caller;
|
|---|
| 14 |
|
|---|
| 15 | no strict 'refs';
|
|---|
| 16 | *{$caller.'::Config'} = \%Config;
|
|---|
| 17 | }
|
|---|
| 18 |
|
|---|
| 19 | 1;
|
|---|
| 20 |
|
|---|
| 21 |
|
|---|
| 22 | =head1 NAME
|
|---|
| 23 |
|
|---|
| 24 | ExtUtils::MakeMaker::Config - Wrapper around Config.pm
|
|---|
| 25 |
|
|---|
| 26 |
|
|---|
| 27 | =head1 SYNOPSIS
|
|---|
| 28 |
|
|---|
| 29 | use ExtUtils::MakeMaker::Config;
|
|---|
| 30 | print $Config{installbin}; # or whatever
|
|---|
| 31 |
|
|---|
| 32 |
|
|---|
| 33 | =head1 DESCRIPTION
|
|---|
| 34 |
|
|---|
| 35 | B<FOR INTERNAL USE ONLY>
|
|---|
| 36 |
|
|---|
| 37 | A very thin wrapper around Config.pm so MakeMaker is easier to test.
|
|---|
| 38 |
|
|---|
| 39 | =cut
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.