File Coverage

blib/lib/Catmandu/FedoraCommons/Model/modifyObject.pm
Criterion Covered Total %
statement 0 2 0.0
branch n/a
condition n/a
subroutine 0 1 0.0
pod 0 1 0.0
total 0 4 0.0


line stmt bran cond sub pod time code
1             =head1 NAME
2              
3             Catmandu::FedoraCommons::Model::modifyObject - Perl model for the Fedora 'modifyObject' REST call
4              
5             =head1 SYNOPSIS
6              
7             use Catmandu::FedoraCommons;
8            
9             my $fedora = Catmandu::FedoraCommons->new('http://localhost:8080/fedora','fedoraAdmin','fedoraAdmin');
10            
11             my $obj = $fedora->modifyObject(pid => 'demo:29' , state => 'I')->parse_content;
12            
13             {
14             'date' => '2013-02-08T10:09:09.273Z'
15             }
16            
17             =head1 SEE ALSO
18              
19             L<Catmandu::FedoraCommons>
20              
21             =cut
22             package Catmandu::FedoraCommons::Model::modifyObject;
23              
24             sub parse {
25 0     0 0   my ($class,$bytes) = @_;
26 0           return { date => $bytes };
27             }
28              
29             1;