File Coverage

blib/lib/Nagios/Plugin/CheckHost/Result/Http.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 18 20 90.0


line stmt bran cond sub pod time code
1             package Nagios::Plugin::CheckHost::Result::Http;
2              
3 1     1   329 use strict;
  1         1  
  1         20  
4 1     1   3 use warnings;
  1         1  
  1         18  
5              
6 1     1   3 use base 'Nagios::Plugin::CheckHost::Result';
  1         1  
  1         316  
7              
8             sub request_ok {
9 11     11 0 12 my ($self, $node) = @_;
10              
11 11         42 $self->{results}->{$node}->[0]->[0];
12             }
13              
14             sub request_time {
15 11     11 0 8 my ($self, $node) = @_;
16              
17 11         42 0+$self->{results}->{$node}->[0]->[1];
18             }
19              
20             1;