File Coverage

blib/lib/Megaport/Internal/_Result.pm

Criterion	Covered	Total	%
statement	20	51	39.2
branch	0	20	0.0
condition	0	3	0.0
subroutine	7	11	63.6
pod	2	3	66.6
total	29	88	32.9

package Megaport::Internal::_Result;

use 5.10.0;
use strict;
use warnings;

use Carp qw(croak cluck);
use List::Util qw(first);
use Megaport::Internal::_Obj;

use Class::Tiny qw(client errstr), {
  _data => {}
};

sub BUILD {
  my ($self, $args) = @_;

  croak __PACKAGE__ . '->new: client not passed to constructor' unless $self->client;

  my $data = $self->client->request($self->_request->{method} => $self->_request->{path});

  if ($data) {
    my %list;
    foreach (@{$data}) {
      $list{$_->{ $self->_request->{pkey} }} = Megaport::Internal::_Obj->new(%{$_});
    }

    $self->_data(\%list);
  }
}

sub get {
  my ($self, %search) = @_;

  if ($search{id} && exists $self->_data->{$search{id}}) {
    return $self->_data->{$search{id}};
  }

  my $needle = first {
    foreach my $k (keys %search) {
      last unless exists $_->{$k};
      return $_ if $_->{$k} eq $search{$k};
    }
  } values %{$self->_data};

  return $needle;
}

sub list {
  my ($self, %search) = @_;
  my @result;

  if (!%search) {
    @result = values %{$self->_data};
  }
  else {
    foreach my $item (values %{$self->_data}) {
      foreach my $k (keys %search) {
        if (ref $search{$k} eq 'Regexp') {
          push @result, $item if $item->{$k} =~ $search{$k};
        }
        else {
          push @result, $item if $item->{$k} eq $search{$k};
        }
      }
    }
  }

  return wantarray ? @result : \@result;
}

1;
__END__