1package WebService::Dropbox::Files::CopyReference; 2use strict; 3use warnings; 4use parent qw(Exporter); 5 6our @EXPORT = do { 7 no strict 'refs'; 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 12sub copy_reference_get { 13 my ($self, $path) = @_; 14 15 my $params = { 16 path => $path, 17 }; 18 19 $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 26sub copy_reference_save { 27 my ($self, $copy_reference, $path) = @_; 28 29 my $params = { 30 copy_reference => $copy_reference, 31 path => $path, 32 }; 33 34 $self->api({ 35 url => 'https://api.dropboxapi.com/2/files/copy_reference/save', 36 params => $params, 37 }); 38} 39 401; 41