File Coverage

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

Criterion	Covered	Total	%
statement	21	30	70.0
branch	5	10	50.0
condition			n/a
subroutine	5	7	71.4
pod	0	5	0.0
total	31	52	59.6

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};

        next unless defined $r;
        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 remove_unfinished_nodes {
    my $self = shift;

    foreach my $node ($self->unfinished_nodes) {
        delete $self->{nodes}{$node->identifier};
    }
}


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

1;