xref: /titanic_41/usr/src/cmd/perl/contrib/Sun/Solaris/Task/Task.pm (revision fbe82215144da71ed02c3a920667472cc567fafd)
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
10require 5.0010;
11use strict;
12use warnings;
13
14package Sun::Solaris::Task;
15
16our $VERSION = '1.4';
17use XSLoader;
18XSLoader::load(__PACKAGE__, $VERSION);
19
20our (@EXPORT_OK, %EXPORT_TAGS);
21my @constants = qw(TASK_NORMAL TASK_FINAL TASK_PROJ_PURGE);
22my @syscalls = qw(settaskid gettaskid);
23@EXPORT_OK = (@constants, @syscalls);
24%EXPORT_TAGS = (CONSTANTS => \@constants, SYSCALLS => \@syscalls,
25    ALL => \@EXPORT_OK);
26
27use base qw(Exporter);
28
291;
30