File Coverage

blib/lib/WebService/Kramerius/API4/Item.pm

Criterion	Covered	Total	%
statement	9	29	31.0
branch	0	2	0.0
condition	0	3	0.0
subroutine	3	12	25.0
pod	9	9	100.0
total	21	55	38.1

package WebService::Kramerius::API4::Item;

use strict;
use warnings;

use base qw(WebService::Kramerius::API4::Base);

our $VERSION = 0.02;

# Get item.
sub get_item {
	my ($self, $item_id) = @_;

	return $self->_get_data($self->{'library_url'}.'search/api/v5.0/item/'.
		"uuid:$item_id");
}

sub get_item_children {
	my ($self, $item_id) = @_;

	return $self->_get_data($self->{'library_url'}.'search/api/v5.0/item/'.
		"uuid:$item_id/children");
}

sub get_item_siblings {
	my ($self, $item_id) = @_;

	return $self->_get_data($self->{'library_url'}.'search/api/v5.0/item/'.
		"uuid:$item_id/siblings");
}

sub get_item_streams {
	my ($self, $item_id) = @_;

	return $self->_get_data($self->{'library_url'}.'search/api/v5.0/item/'.
		"uuid:$item_id/streams");
}

sub get_item_streams_one {
	my ($self, $item_id, $stream_id) = @_;

	# XXX Hack for bad content type for alto.
	if ($stream_id eq 'alto' || $stream_id eq 'ALTO') {
		$self->{'_force_content_type'} = 'text/xml';
	}

	return $self->_get_data($self->{'library_url'}.'search/api/v5.0/item/'.
		"uuid:$item_id/streams/$stream_id");
}

sub get_item_image {
	my ($self, $item_id) = @_;

	return $self->_get_data($self->{'library_url'}.'search/api/v5.0/item/'.
		"uuid:$item_id/full");
}

sub get_item_preview {
	my ($self, $item_id) = @_;

	return $self->_get_data($self->{'library_url'}.'search/api/v5.0/item/'.
		"uuid:$item_id/preview");
}

sub get_item_thumb {
	my ($self, $item_id) = @_;

	return $self->_get_data($self->{'library_url'}.'search/api/v5.0/item/'.
		"uuid:$item_id/thumb");
}

sub get_item_foxml {
	my ($self, $item_id) = @_;

	return $self->_get_data($self->{'library_url'}.'search/api/v5.0/item/'.
		"uuid:$item_id/foxml");
}

1;

__END__