lib/Parrot/Config.pm

   1 # Copyright (C) 2006-2007, Parrot Foundation.
   2 # $Id$
   3
   4 =head1 NAME
   5
   6 Parrot::Config - Parrot Configuration Data
   7
   8 =head1 DESCRIPTION
   9
  10 This file is used for parrot's configuration data. If C<perl Configure.pl>
  11 hasn't been run yet, it dies with a message explaining that parrot needs to be
  12 configured first. It contains the C<%PConfig> hash which is exported with the
  13 values loaded from F<lib/Parrot/Config/Generated.pm>.
  14
  15 =cut
  16
  17 package Parrot::Config;
  18
  19 use strict;
  20 use warnings;
  21
  22 eval 'use Parrot::Config::Generated';
  23 if ($@) {
  24     die "\nParrot::Config is unavailable until you configure parrot.\n"
  25         . "Please run `perl Configure.pl`.\n\n";
  26 }
  27
  28 use Exporter;
  29
  30 use vars qw(@ISA @EXPORT %PConfig %PConfig_Temp);
  31
  32 @ISA = qw(Exporter);
  33
  34 @EXPORT = qw(%PConfig %PConfig_Temp);
  35
  36 %PConfig      = %Parrot::Config::Generated::PConfig;
  37 %PConfig_Temp = %Parrot::Config::Generated::PConfig_Temp;
  38
  39 1;
  40
  41 # Local Variables:
  42 #   mode: cperl
  43 #   cperl-indent-level: 4
  44 #   fill-column: 100
  45 # End:
  46 # vim: expandtab shiftwidth=4: