File Coverage

blib/lib/Catmandu/FedoraCommons/Model/datastreamProfile.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

=head1 NAME

Catmandu::FedoraCommons::Model::datastreamProfile - Perl model for the Fedora 'addDatastream', 'getDatastream', 'modifyDatastream','setDatastreamState' and 'setDatastreamVersionable' REST call

=head1 SYNOPSIS

  use Catmandu::FedoraCommons;

  my $fedora = Catmandu::FedoraCommons->new('http://localhost:8080/fedora','fedoraAdmin','fedoraAdmin');

  my $obj = $fedora->getDatastream(pid => 'demo:29', dsID => 'DC')->parse_content;

  {
     'pid'  => 'demo:29' ,
     'dsID' => 'DC',
     'dateTime' => '2008-07-02T05:09:43.234Z' ,
     'profile' => {
        'dsLabel' => 'Dublin Core Record for this object' ,
        'dsVersionID' => 'DC1.0' ,
        'dsCreateDate' => '2008-07-02T05:09:43.234Z' ,
        'dsState' => 'A' ,
        'dsMIME' => 'text/xml' ,
        'dsFormatURI' => 'http://www.openarchives.org/OAI/2.0/oai_dc/' ,
        'dsControlGroup' => 'X' ,
        'dsSize' => 626,
        'dsVersionable' => 'true' ,
        'dsInfoType' => '' ,
        'dsLocation' => 'demo:29+DC+DC1.0' ,
        'dsLocationType' => '' ,
        'dsChecksumType' => 'DISABLED' ,
        'dsChecksum' => 'none' ,
     }
  }

=head1 SEE ALSO

L<Catmandu::FedoraCommons>

=cut
package Catmandu::FedoraCommons::Model::datastreamProfile;

use XML::LibXML;

sub parse {
    my ($class,$xml) = @_;
    my $dom  = XML::LibXML->load_xml(string => $xml);
    $dom->getDocumentElement()->setNamespace('http://www.fedora.info/definitions/1/0/management/','m');

    my @nodes = $dom->findnodes("/m:datastreamProfile/*");

    my $result;

    for my $node (@nodes) {
        my $name  = $node->nodeName;
        my $value = $node->textContent;

        $result->{profile}->{$name} = $value;
    }

    my $pid = $dom->firstChild()->getAttribute('pid');
    $result->{pid} = $pid;

    my $dsID = $dom->firstChild()->getAttribute('dsID');
    $result->{dsID} = $dsID;

    my $dateTime = $dom->firstChild()->getAttribute('dateTime');
    $result->{dateTime} = $dateTime;

    return $result;
}

1;