File Coverage

blib/lib/Catmandu/FedoraCommons/Model/ingest.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::ingest - Perl model for the Fedora 'ingest' 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->ingest(pid => 'demo:40', file => 't/obj_demo_40.zip', format => 'info:fedora/fedora-system:ATOMZip-1.1')->parse_content;
12            
13             {
14             'pid' => 'demo:40'
15             }
16            
17             =head1 SEE ALSO
18              
19             L<Catmandu::FedoraCommons>
20              
21             =cut
22             package Catmandu::FedoraCommons::Model::ingest;
23              
24             sub parse {
25 0     0 0   my ($class,$bytes) = @_;
26 0           return { pid => $bytes };
27             }
28              
29             1;