usr/src/cmd/perl/contrib/Sun/Solaris/Task/Task.pm

   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;