1###################################################################### 2package Net::Amazon::Response::MusicLabel; 3###################################################################### 4use warnings; 5use strict; 6use base qw(Net::Amazon::Response); 7 8use Net::Amazon::Property; 9use Data::Dumper; 10 11################################################## 12sub new { 13################################################## 14 my($class, %options) = @_; 15 16 my $self = $class->SUPER::new(%options); 17 18 bless $self, $class; # reconsecrate 19} 20 21################################################## 22sub as_string { 23################################################## 24 my($self) = @_; 25 26 return $self->SUPER::list_as_string($self->properties); 27} 28 291; 30