[Summary view] [Print] [Text view]

   1  package Config::Extensions;
   2  use strict;
   3  use vars qw(%Extensions $VERSION @ISA @EXPORT_OK);
   4  use Config;
   5  require Exporter;
   6  
   7  $VERSION = '0.01';
   8  @ISA = 'Exporter';
   9  @EXPORT_OK = '%Extensions';
  10  
  11  foreach my $type (qw(static dynamic nonxs)) {
  12      foreach (split /\s+/, $Config{$type . '_ext'}) {
  13      s!/!::!g;
  14      $Extensions{$_} = $type;
  15      }
  16  }
  17  
  18  1;
  19  __END__
  20  =head1 NAME
  21  
  22  Config::Extensions - hash lookup of which core extensions were built.
  23  
  24  =head1 SYNOPSIS
  25  
  26      use Config::Extensions '%Extensions';
  27      if ($Extensions{PerlIO::via}) {
  28          # This perl has PerlIO::via built
  29      }
  30  
  31  =head1 DESCRIPTION
  32  
  33  The Config::Extensions module provides a hash C<%Extensions> containing all
  34  the core extensions that were enabled for this perl. The hash is keyed by
  35  extension name, with each entry having one of 3 possible values:
  36  
  37  =over 4
  38  
  39  =item dynamic
  40  
  41  The extension is dynamically linked
  42  
  43  =item nonxs
  44  
  45  The extension is pure perl, so doesn't need linking to the perl executable
  46  
  47  =item static
  48  
  49  The extension is statically linked to the perl binary
  50  
  51  =back
  52  
  53  As all values evaluate to true, a simple C<if> test is good enough to determine
  54  whether an extension is present.
  55  
  56  All the data uses to generate the C<%Extensions> hash is already present in
  57  the C<Config> module, but not in such a convenient format to quickly reference.
  58  
  59  =head1 AUTHOR
  60  
  61  Nicholas Clark <nick@ccl4.org>
  62  
  63  =cut