1######################################################################
2package Net::Amazon::Response::UPC;
3######################################################################
4use warnings;
5use strict;
6use base qw(Net::Amazon::Response);
7
8use Net::Amazon::Property;
9
10##################################################
11sub new {
12##################################################
13    my($class, %options) = @_;
14
15    my $self = $class->SUPER::new(%options);
16
17    bless $self, $class;   # reconsecrate
18}
19
20##################################################
21sub as_string {
22##################################################
23    my($self) = @_;
24
25    my($property) = $self->properties;
26    return $property->as_string();
27}
28
29##################################################
30sub properties {
31##################################################
32    my($self) = @_;
33
34    my $property = Net::Amazon::Property::factory(
35        xmlref => $self->{xmlref}->{Items}->[0]);
36
37    return ($property);
38}
39
401;
41