/usr/local/CPAN/WebService-Aladdin/WebService/Aladdin/Item/DVD.pm

• package WebService::Aladdin::Item::DVD
  • init
• EOF

package WebService::Aladdin::Item::DVD;

use strict;
use warnings;

use base qw(WebService::Aladdin::Item);

__PACKAGE__->mk_accessors(qw/dvdinfo/);

sub init {
    my ($self, $info) = @_;

    my $data;
    foreach my $key (keys %{ $info }) {
	my $type = $key;
	$type =~ s/^aladdin://;
	if ($type eq 'authors' && $info->{'aladdin:authors'}) {
	    my $author = $info->{'aladdin:authors'}->{'aladdin:author'};
	    if (ref($author) eq 'HASH') {
		$data->{'author'} = {
		    authorid   => $author->{'-authorid'},
		    authorType => $author->{'authorType'},
		    text       => $author->{'#text'},
		    desc       => $author->{'-desc'},
		};
	    } elsif (ref($author) eq 'ARRAY') {
		foreach my $p (@{ $info->{'aladdin:authors'}->{'aladdin:author'} }) {
		    unshift @{ $data->{$type} }, {
			authorid => $p->{'-authorid'},
			authorType => $p->{'-authorType'},
			text       => $p->{'#text'},
			desc       => $p->{'-desc'},
		    };
		}
	    }
	} else {
	    $data->{$type} = $info->{$key};
	}
    }
    $self->dvdinfo($data);
}

1;