package RPS::Sale::Match::Result;

use strict;
use warnings;

sub new {
   my $proto = shift;
   my $class = ref($proto) || $proto;
   my %in = @_;


	foreach my $key (qw(import_status map_id num_products products rec_products search_products detail)) {
		return undef unless exists $in{$key};
	}

   my $self = {%in};

   bless ($self, $class);

   return $self;
}


sub ImportStatus {
	my $self = shift;
	return $self->{import_status};
}

sub MapID {
	my $self = shift;
	return $self->{map_id};
}

sub NumProducts {
	my $self = shift;
	return $self->{num_products};
}

sub ProductIDs {
	my $self = shift;
	return wantarray ? @{$self->{products}} : $self->{products};
}

sub RecProductIDs {
	my $self = shift;
	return wantarray ? @{$self->{rec_products}} : $self->{rec_products};
}

sub SearchProductIDs {
	my $self = shift;
	return wantarray ? @{$self->{search_products}} : $self->{search_products};
}

sub Level {
	my $self = shift;
	my $product_id = shift;
	return undef unless defined $product_id;
	return $self->{detail}->{$product_id}->{level};
}
         
sub Pattern {
	my $self = shift;
	my $product_id = shift;
	return undef unless defined $product_id;
	return $self->{detail}->{$product_id}->{pattern};
}
         
sub MatchType {
	my $self = shift;
	my $product_id = shift;
	return undef unless defined $product_id;
	return $self->{detail}->{$product_id}->{type};
}

sub Detail {
	my $self = shift;
	return $self->{detail};
}

1;