1 # 2 # CDDL HEADER START 3 # 4 # The contents of this file are subject to the terms of the 5 # Common Development and Distribution License (the "License"). 6 # You may not use this file except in compliance with the License. 7 # 8 # You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 9 # or http://www.opensolaris.org/os/licensing. 10 # See the License for the specific language governing permissions 11 # and limitations under the License. 12 # 13 # When distributing Covered Code, include this CDDL HEADER in each 14 # file and include the License file at usr/src/OPENSOLARIS.LICENSE. 15 # If applicable, add the following below this CDDL HEADER, with the 16 # fields enclosed by brackets "[]" replaced with your own identifying 17 # information: Portions Copyright [yyyy] [name of copyright owner] 18 # 19 # CDDL HEADER END 20 # 21 22 # 23 # Copyright 2008 Sun Microsystems, Inc. All rights reserved. 24 # Use is subject to license terms. 25 # 26 27 # 28 # Task.pm provides the bootstrap for the Sun::Solaris::Task module. 29 # 30 31 require 5.8.4; 32 use strict; 33 use warnings; 34 35 package Sun::Solaris::Task; 36 37 our $VERSION = '1.4'; 38 use XSLoader; 39 XSLoader::load(__PACKAGE__, $VERSION); 40 41 our (@EXPORT_OK, %EXPORT_TAGS); 42 my @constants = qw(TASK_NORMAL TASK_FINAL TASK_PROJ_PURGE); 43 my @syscalls = qw(settaskid gettaskid); 44 @EXPORT_OK = (@constants, @syscalls); 45 %EXPORT_TAGS = (CONSTANTS => \@constants, SYSCALLS => \@syscalls, 46 ALL => \@EXPORT_OK); 47 48 use base qw(Exporter); 49 50 1; 51