File Coverage

blib/lib/WebService/Aladdin/Item/DVD.pm

Criterion	Covered	Total	%
statement	9	25	36.0
branch	0	6	0.0
condition	0	3	0.0
subroutine	3	4	75.0
pod	0	1	0.0
total	12	39	30.7

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;