File Coverage

blib/lib/WebService/Dropbox/Files/CopyReference.pm
Criterion Covered Total %
statement 12 18 66.6
branch n/a
condition n/a
subroutine 4 6 66.6
pod 0 2 0.0
total 16 26 61.5


line stmt bran cond sub pod time code
1             package WebService::Dropbox::Files::CopyReference;
2 10     10   66 use strict;
  10         21  
  10         278  
3 10     10   213 use warnings;
  10         24  
  10         286  
4 10     10   48 use parent qw(Exporter);
  10         16  
  10         51  
5              
6             our @EXPORT = do {
7 10     10   577 no strict 'refs';
  10         28  
  10         1920  
8             grep { $_ !~ qr{ \A [A-Z]+ \z }xms } keys %{ __PACKAGE__ . '::' };
9             };
10              
11             # https://www.dropbox.com/developers/documentation/http/documentation#files-copy_reference-get
12             sub copy_reference_get {
13 0     0 0   my ($self, $path) = @_;
14              
15 0           my $params = {
16             path => $path,
17             };
18              
19 0           $self->api({
20             url => 'https://api.dropboxapi.com/2/files/copy_reference/get',
21             params => $params,
22             });
23             }
24              
25             # https://www.dropbox.com/developers/documentation/http/documentation#files-copy_reference-save
26             sub copy_reference_save {
27 0     0 0   my ($self, $copy_reference, $path) = @_;
28              
29 0           my $params = {
30             copy_reference => $copy_reference,
31             path => $path,
32             };
33              
34 0           $self->api({
35             url => 'https://api.dropboxapi.com/2/files/copy_reference/save',
36             params => $params,
37             });
38             }
39              
40             1;