File Coverage

blib/lib/Catmandu/VIAF/API/Parse.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

package Catmandu::VIAF::API::Parse;

use strict;
use warnings;

use Moo;
use Catmandu::Sane;

use JSON;
use XML::Struct qw(readXML);

has items => (is => 'ro', required => 1);
has lang  => (is => 'ro', default => 'nl-NL');

sub json {
    my ($self) = @_;
    my $tree = decode_json($self->items);
    return $tree;
}

sub xml {
    my ($self) = @_;
    my $tree = readXML($self->items, simple => 1);
    return $tree;
}

1;
__END__