home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl / 5.10.0 / Config / Extensions.pm
Encoding:
Perl POD Document  |  2009-06-26  |  1.3 KB  |  64 lines
  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
  64.