File Coverage

blib/lib/WWW/Picnic/Result/Search.pm

Criterion	Covered	Total	%
statement	35	36	97.2
branch	11	16	68.7
condition	8	17	47.0
subroutine	6	6	100.0
pod	3	3	100.0
total	63	78	80.7

package WWW::Picnic::Result::Search;
our $VERSION = '0.100';
our $AUTHORITY = 'cpan:GETTY';
# ABSTRACT: Picnic search results collection

use Moo;

extends 'WWW::Picnic::Result';

use WWW::Picnic::Result::SearchResult;


# Recursively find all sellingUnit objects in the response
sub _find_selling_units {
  my ($self, $data, $seen) = @_;
  $seen //= {};
  my @units;

  return @units unless ref $data;

  if (ref $data eq 'HASH') {
    # Found a sellingUnit
    if (exists $data->{sellingUnit} && ref $data->{sellingUnit} eq 'HASH') {
      my $unit = $data->{sellingUnit};
      my $id = $unit->{id};
      # Deduplicate by ID
      unless ($seen->{$id}++) {
        push @units, $unit;
      }
    }
    # Recurse into hash values
    for my $val (values %$data) {
      push @units, $self->_find_selling_units($val, $seen);
    }
  }
  elsif (ref $data eq 'ARRAY') {
    # Recurse into array elements
    for my $elem (@$data) {
      push @units, $self->_find_selling_units($elem, $seen);
    }
  }

  return @units;
}

has items => (
  is => 'ro',
  lazy => 1,
  default => sub {
    my $self = shift;
    my @units = $self->_find_selling_units($self->raw);
    return [ map { WWW::Picnic::Result::SearchResult->new($_) } @units ];
  },
);


sub all_items {
  my ( $self ) = @_;
  return @{ $self->items };
}


sub total_count {
  my ( $self ) = @_;
  return scalar @{ $self->items };
}


sub first_group_id {
  my ( $self ) = @_;
  my $raw = $self->raw;
  # Try to extract from analytics context
  if (ref $raw eq 'HASH' && $raw->{body} && $raw->{body}{child}) {
    my $analytics = $raw->{body}{child}{analytics};
    if ($analytics && $analytics->{contexts}) {
      for my $ctx (@{$analytics->{contexts}}) {
        return $ctx->{data}{main_entity} if $ctx->{data} && $ctx->{data}{main_entity};
      }
    }
  }
  return;
}


1;

__END__