File Coverage

blib/lib/Nagios/Plugin/Getopt.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 23 23 100.0


line stmt bran cond sub pod time code
1             package Nagios::Plugin::Getopt;
2              
3 5     5   108474 use strict;
  5         12  
  5         233  
4 5     5   26 use warnings;
  5         8  
  5         161  
5 5     5   1732 use Nagios::Plugin::Functions;
  5         13  
  5         551  
6             our $VERSION = $Nagios::Plugin::Functions::VERSION;
7 5     5   29 use base 'Monitoring::Plugin::Getopt';
  5         6  
  5         3443  
8              
9             # -------------------------------------------------------------------------
10             # Private methods
11              
12             sub _die
13             {
14 13     13   2144045 my $self = shift;
15 13         33 my ($msg) = @_;
16 13 100       78 $msg .= "\n" unless substr($msg, -1) eq "\n";
17 13         72 Nagios::Plugin::Functions::_nagios_exit(3, $msg);
18             }
19              
20             1;
21              
22             __END__