1 #
   2 # Copyright (c) 2002, 2008, Oracle and/or its affiliates. All rights reserved.
   3 #
   4 
   5 #
   6 # File.pm contains wrappers for the exacct file manipulation routines.
   7 # 
   8 
   9 require 5.0010;
  10 use strict;
  11 use warnings;
  12 
  13 package Sun::Solaris::Exacct::File;
  14 
  15 our $VERSION = '1.3';
  16 use XSLoader;
  17 XSLoader::load(__PACKAGE__, $VERSION);
  18 
  19 # @_Constants is set up by the XSUB bootstrap() function.
  20 our (@EXPORT_OK, %EXPORT_TAGS, @_Constants);
  21 @EXPORT_OK = @_Constants;
  22 %EXPORT_TAGS = (CONSTANTS => \@_Constants, ALL => \@EXPORT_OK);
  23 
  24 use base qw(Exporter);
  25 
  26 #
  27 # Extend the default Exporter::import to do optional inclusion of the
  28 # Fcntl module.
  29 #
  30 sub import
  31 {
  32         # Do the normal export processing for this module.
  33         __PACKAGE__->export_to_level(1, @_);
  34 
  35         # Export from Fcntl if the tag is ':ALL'
  36         if (grep(/^:ALL$/, @_)) {
  37                 require Fcntl;
  38                 Fcntl->export_to_level(1, undef, ':DEFAULT');
  39         }
  40 }
  41 
  42 1;