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 9require 5.8.4; 10use strict; 11use warnings; 12 13package Sun::Solaris::Exacct::File; 14 15our $VERSION = '1.3'; 16use XSLoader; 17XSLoader::load(__PACKAGE__, $VERSION); 18 19# @_Constants is set up by the XSUB bootstrap() function. 20our (@EXPORT_OK, %EXPORT_TAGS, @_Constants); 21@EXPORT_OK = @_Constants; 22%EXPORT_TAGS = (CONSTANTS => \@_Constants, ALL => \@EXPORT_OK); 23 24use base qw(Exporter); 25 26# 27# Extend the default Exporter::import to do optional inclusion of the 28# Fcntl module. 29# 30sub 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 421; 43