#
#   Copyright (c) 2005, Presicient Corp., USA
#
# Permission is granted to use this software according to the terms of the
# Artistic License, as specified in the Perl README file,
# with the exception that commercial redistribution, either 
# electronic or via physical media, as either a standalone package, 
# or incorporated into a third party product, requires prior 
# written approval of the author.
#
# This software is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
#
# Presicient Corp. reserves the right to provide support for this software
# to individual sites under a separate (possibly fee-based)
# agreement.
#
#	History:
#
#		2005-Jan-27		D. Arnold
#			Coded.
#
=pod

=head4 EditorialReviews (table, readonly)

Product reviews by professional published sources, keyed by ASIN

=over 4

=item ASIN

=item EditorialReview

=back

=cut

package SQL::Amazon::Tables::EditorialReviews;

use DBI qw(:sql_types);
use base qw(SQL::Amazon::Tables::Table);

use strict;

our %metadata = (
	NAME => [ qw/ASIN EditorialReview Source/ ],
	TYPE => [
	SQL_VARCHAR,
	SQL_VARCHAR,
	SQL_VARCHAR
	],
	PRECISION => [
	32,
	1024,
	256,
	],
	SCALE => [undef, undef, undef],
	NULLABLE => [undef, undef, undef]
);

sub new {
	my $class = shift;
	my $obj = $class->SUPER::new(\%metadata);
	return $obj;
}

1;