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