|
our @EXPORT = do {
no strict 'refs' ;
grep { $_ !~ qr{ \A [A-Z]+ \z } xms } keys %{ __PACKAGE__ . '::' };
};
sub list_folder {
my ( $self , $path , $optional_params ) = @_ ;
my $params = {
path => $path ,
%{ $optional_params || {} },
};
$self ->api({
params => $params ,
});
}
sub list_folder_continue {
my ( $self , $cursor ) = @_ ;
my $params = {
cursor => $cursor ,
};
$self ->api({
params => $params ,
});
}
sub list_folder_get_latest_cursor {
my ( $self , $path , $optional_params ) = @_ ;
my $params = {
path => $path ,
%{ $optional_params || {} },
};
$self ->api({
params => $params ,
});
}
sub list_folder_longpoll {
my ( $self , $cursor , $optional_params ) = @_ ;
my $params = {
cursor => $cursor ,
%{ $optional_params || {} },
};
$self ->api({
params => $params ,
});
}
1;
|