File Coverage

blib/lib/Nagios/Plugin/Functions.pm

Criterion	Covered	Total	%
statement	34	37	91.8
branch	1	2	50.0
condition			n/a
subroutine	17	20	85.0
pod	0	8	0.0
total	52	67	77.6

package Nagios::Plugin::Functions;

use strict;
use warnings;
use base 'Monitoring::Plugin::Functions';

# Remember to update Nagios::Plugins as well
our $VERSION = "0.37";

BEGIN {
    warnings::warnif("deprecated", "Nagios::Plugin is deprecated, use Monitoring::Plugin instead.")
        unless $Monitoring::Plugin::deprecated_warned;
    $Monitoring::Plugin::deprecated_warned = 1;
};

our @STATUS_CODES = qw(OK WARNING CRITICAL UNKNOWN DEPENDENT);

#require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = (@STATUS_CODES, qw(nagios_exit nagios_die check_messages));
our @EXPORT_OK = qw(%ERRORS %STATUS_TEXT @STATUS_CODES get_shortname max_state max_state_alt convert $value_re);
our %EXPORT_TAGS = (
    all => [ @EXPORT, @EXPORT_OK ],
    codes => [ @STATUS_CODES ],
    functions => [ qw(nagios_exit nagios_die check_messages max_state max_state_alt convert) ],
);

use constant OK         => 0;
use constant WARNING    => 1;
use constant CRITICAL   => 2;
use constant UNKNOWN    => 3;
use constant DEPENDENT  => 4;

our %ERRORS = (
    'OK'        => OK,
    'WARNING'   => WARNING,
    'CRITICAL'  => CRITICAL,
    'UNKNOWN'   => UNKNOWN,
    'DEPENDENT' => DEPENDENT,
);

our %STATUS_TEXT = reverse %ERRORS;

my $value = qr/[-+]?[\d\.]+/;
our $value_re = qr/$value(?:e$value)?/;

sub _fake_exit      { return(Monitoring::Plugin::Functions::_fake_exit(@_)); };
sub _use_die        { return(Monitoring::Plugin::Functions::_use_die(@_)); };
sub nagios_exit     { return(Monitoring::Plugin::Functions::plugin_exit(@_)); }
sub _nagios_exit    { return(Monitoring::Plugin::Functions::_plugin_exit(@_)); }
sub nagios_die      { return(Monitoring::Plugin::Functions::plugin_die(@_)); }
sub get_shortname   { return(Monitoring::Plugin::Functions::get_shortname(@_)); }
sub max_state_alt   { return(Monitoring::Plugin::Functions::max_state_alt(@_)); }
sub max_state       { return(Monitoring::Plugin::Functions::max_state(@_)); }
sub check_messages  { return(Monitoring::Plugin::Functions::check_messages(@_)); }
sub convert         { return(Monitoring::Plugin::Functions::convert(@_)); }
sub die { Monitoring::Plugin::Functions::plugin_die(@_); }

1;

__END__