File Coverage

blib/lib/WebService/Dropbox/Users.pm
Criterion Covered Total %
statement 12 20 60.0
branch n/a
condition n/a
subroutine 4 8 50.0
pod 0 4 0.0
total 16 32 50.0


line stmt bran cond sub pod time code
1             package WebService::Dropbox::Users;
2 10     10   66 use strict;
  10         22  
  10         287  
3 10     10   47 use warnings;
  10         35  
  10         259  
4 10     10   49 use parent qw(Exporter);
  10         23  
  10         48  
5              
6             our @EXPORT = do {
7 10     10   683 no strict 'refs';
  10         21  
  10         2522  
8             grep { $_ !~ qr{ \A [A-Z]+ \z }xms } keys %{ __PACKAGE__ . '::' };
9             };
10              
11             # https://www.dropbox.com/developers/documentation/http/documentation#users-get_account
12             sub get_account {
13 0     0 0   my ($self, $account_id) = @_;
14              
15 0           $self->api({
16             url => 'https://api.dropboxapi.com/2/users/get_account',
17             params => {
18             account_id => $account_id,
19             },
20             });
21             }
22              
23             # https://www.dropbox.com/developers/documentation/http/documentation#users-get_account_batch
24             sub get_account_batch {
25 0     0 0   my ($self, $account_ids) = @_;
26              
27 0           $self->api({
28             url => 'https://api.dropboxapi.com/2/users/get_account_batch',
29             params => {
30             account_ids => $account_ids,
31             },
32             });
33             }
34              
35             # https://www.dropbox.com/developers/documentation/http/documentation#users-get_current_account
36             sub get_current_account {
37 0     0 0   my ($self) = @_;
38              
39 0           $self->api({
40             url => 'https://api.dropboxapi.com/2/users/get_current_account',
41             });
42             }
43              
44             # https://www.dropbox.com/developers/documentation/http/documentation#users-get_space_usage
45             sub get_space_usage {
46 0     0 0   my ($self) = @_;
47              
48 0           $self->api({
49             url => 'https://api.dropboxapi.com/2/users/get_space_usage',
50             });
51             }
52              
53             1;