File Coverage

blib/lib/Catmandu/FedoraCommons/Model/upload.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::upload - Perl model for the Fedora 'upload' 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->upload(file => 't/marc.xml')->parse_content;
12            
13             {
14             'id' => 'upload://11'
15             }
16            
17             =head1 SEE ALSO
18              
19             L<Catmandu::FedoraCommons>
20              
21             =cut
22             package Catmandu::FedoraCommons::Model::upload;
23              
24             sub parse {
25 0     0 0   my ($class,$bytes) = @_;
26 0           return { id => $bytes };
27             }
28              
29             1;