1 #
   2 # Copyright (c) 2002, 2008, Oracle and/or its affiliates. All rights reserved.
   3 #
   4 
   5 #
   6 # Exacct.pm contains wrappers for the exacct error functions and syscalls,
   7 # and some 'shorthand' convenience functions.
   8 # 
   9 
  10 require 5.8.4;
  11 use strict;
  12 use warnings;
  13 
  14 package Sun::Solaris::Exacct;
  15 
  16 our $VERSION = '1.5';
  17 use XSLoader;
  18 XSLoader::load(__PACKAGE__, $VERSION);
  19 
  20 # @_Constants is set up by the XSUB bootstrap() function.
  21 our (@EXPORT_OK, %EXPORT_TAGS, @_Constants);
  22 my @syscalls = qw(getacct putacct wracct);
  23 my @libcalls = qw(ea_error ea_error_str);
  24 my @shorthand = qw(ea_register_catalog ea_new_catalog ea_new_file ea_new_item
  25     ea_new_group ea_dump_object);
  26 @EXPORT_OK = (@_Constants, @syscalls, @libcalls, @shorthand);
  27 %EXPORT_TAGS = (CONSTANTS => \@_Constants, SYSCALLS => \@syscalls,
  28     LIBCALLS => \@libcalls, SHORTHAND => \@shorthand, ALL => \@EXPORT_OK);
  29 
  30 use base qw(Exporter);

   1 #
   2 # Copyright (c) 2002, 2008, Oracle and/or its affiliates. All rights reserved.
   3 #
   4 
   5 #
   6 # Exacct.pm contains wrappers for the exacct error functions and syscalls,
   7 # and some 'shorthand' convenience functions.
   8 # 
   9 
  10 require 5.0010;
  11 use strict;
  12 use warnings;
  13 
  14 package Sun::Solaris::Exacct;
  15 
  16 our $VERSION = '1.5';
  17 use XSLoader;
  18 XSLoader::load(__PACKAGE__, $VERSION);
  19 
  20 # @_Constants is set up by the XSUB bootstrap() function.
  21 our (@EXPORT_OK, %EXPORT_TAGS, @_Constants);
  22 my @syscalls = qw(getacct putacct wracct);
  23 my @libcalls = qw(ea_error ea_error_str);
  24 my @shorthand = qw(ea_register_catalog ea_new_catalog ea_new_file ea_new_item
  25     ea_new_group ea_dump_object);
  26 @EXPORT_OK = (@_Constants, @syscalls, @libcalls, @shorthand);
  27 %EXPORT_TAGS = (CONSTANTS => \@_Constants, SYSCALLS => \@syscalls,
  28     LIBCALLS => \@libcalls, SHORTHAND => \@shorthand, ALL => \@EXPORT_OK);
  29 
  30 use base qw(Exporter);