File Coverage

blib/lib/Nagios/Plugin/CheckHost/Result.pm

Criterion	Covered	Total	%
statement	20	26	76.9
branch	4	8	50.0
condition			n/a
subroutine	5	6	83.3
pod	0	4	0.0
total	29	44	65.9

package Nagios::Plugin::CheckHost::Result;

use strict;
use warnings;

sub new {
    my ($class, %args) = @_;

    my $nodes = delete $args{nodes} or die "Missed nodes information";
    my %nodes = map {$_->identifier => $_} @$nodes;
    bless {%args, nodes => \%nodes, results => {}}, $class;
}

sub store_result {
    my ($self, $results) = @_;
    foreach my $node (keys %$results) {
        my $node_c = $self->{nodes}{$node} or next;

        my $r = $results->{$node};

        if (defined $r->[0]) {
            $self->{results}{$node_c} = $r;
        } else {
            delete $self->{nodes}{$node};
        }
    }
}

sub unfinished_nodes {
    my $self = shift;
    my @nodes;

    foreach my $node (values %{$self->{nodes}}) {
        push @nodes, $node unless exists $self->{results}{$node};
    }

    @nodes;
}

sub nodes {
    values %{$_[0]->{nodes}};
}

1;