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;