1 package Nagios;

     2 

     3 use strict;

     4 use warnings;

     5 

     6 sub UNKNOWN { 3 }

     7 sub CRITICAL { 2 }

     8 sub WARNING { 1 }

     9 sub OK { 0 }

    10 

    11 1;

    12 

    13 __END__

    14 

    15 =head1 NAME

    16 

    17     Nagios - nagios support perl module

    18 

    19 =head1 SYNOPSIS

    20 

    21     use Nagios;

    22 

    23     return NAGIOS::UNKNOWN;

    24     return NAGIOS::CRITICAL;

    25     return NAGIOS::WARNING;

    26     return NAGIOS::OK;

    27 

    28 =head1 CONSTANTS

    29 

    30 =head2 UNKNOWN()

    31 

    32 Returns the "unknown" status (3).

    33 

    34 =head2 CRITICAL()

    35 

    36 Returns the "critical" status (2).

    37 

    38 =head2 WARNING()

    39 

    40 Returns the "warning" status (1).

    41 

    42 =head2 OK()

    43 

    44 Returns the "OK" status (0).

    45 

    46 =cut