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