File Coverage

blib/lib/Catmandu/FedoraCommons/Model/purgeDatastream.pm
Criterion Covered Total %
statement 3 5 60.0
branch n/a
condition n/a
subroutine 1 2 50.0
pod 0 1 0.0
total 4 8 50.0


line stmt bran cond sub pod time code
1             =head1 NAME
2              
3             Catmandu::FedoraCommons::Model::purgeDatastream - Perl model for the Fedora 'purgeDatastream' 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->purgeDatastream(pid => 'demo:29', dsID => 'TEST')->parse_content;
12            
13             [
14             '2013-02-08T10:18:21.019Z'
15             ];
16            
17             =head1 SEE ALSO
18              
19             L<Catmandu::FedoraCommons>
20              
21             =cut
22             package Catmandu::FedoraCommons::Model::purgeDatastream;
23              
24 1     1   100496 use JSON;
  1         13764  
  1         9  
25              
26             sub parse {
27 0     0 0   my ($class,$bytes) = @_;
28 0           return decode_json($bytes);
29             }
30              
31             1;