1 #
   2 # Copyright (c) 2002, 2008, Oracle and/or its affiliates. All rights reserved.
   3 #
   4 
   5 #
   6 # Task.pm provides the bootstrap for the Sun::Solaris::Task module.
   7 #
   8 
   9 require 5.8.4;
  10 use strict;
  11 use warnings;
  12 
  13 package Sun::Solaris::Task;
  14 
  15 our $VERSION = '1.4';
  16 use XSLoader;
  17 XSLoader::load(__PACKAGE__, $VERSION);
  18 
  19 our (@EXPORT_OK, %EXPORT_TAGS);
  20 my @constants = qw(TASK_NORMAL TASK_FINAL TASK_PROJ_PURGE);
  21 my @syscalls = qw(settaskid gettaskid);
  22 @EXPORT_OK = (@constants, @syscalls);
  23 %EXPORT_TAGS = (CONSTANTS => \@constants, SYSCALLS => \@syscalls,
  24     ALL => \@EXPORT_OK);
  25 
  26 use base qw(Exporter);
  27 
  28 1;

   1 #
   2 # Copyright (c) 2002, 2008, Oracle and/or its affiliates. All rights reserved.
   3 #
   4 
   5 #
   6 # Task.pm provides the bootstrap for the Sun::Solaris::Task module.
   7 #
   8 
   9 require 5.0010;
  10 use strict;
  11 use warnings;
  12 
  13 package Sun::Solaris::Task;
  14 
  15 our $VERSION = '1.4';
  16 use XSLoader;
  17 XSLoader::load(__PACKAGE__, $VERSION);
  18 
  19 our (@EXPORT_OK, %EXPORT_TAGS);
  20 my @constants = qw(TASK_NORMAL TASK_FINAL TASK_PROJ_PURGE);
  21 my @syscalls = qw(settaskid gettaskid);
  22 @EXPORT_OK = (@constants, @syscalls);
  23 %EXPORT_TAGS = (CONSTANTS => \@constants, SYSCALLS => \@syscalls,
  24     ALL => \@EXPORT_OK);
  25 
  26 use base qw(Exporter);
  27 
  28 1;