File Coverage

lib/Yandex/Disk/Public.pm

Criterion	Covered	Total	%
statement	58	64	90.6
branch	6	14	42.8
condition	4	14	28.5
subroutine	12	13	92.3
pod	5	5	100.0
total	85	110	77.2

#
#===============================================================================
#
#         FILE: Public.pm
#
#  DESCRIPTION:
#
#        FILES: ---
#         BUGS: ---
#        NOTES: ---
#       AUTHOR: YOUR NAME (),
# ORGANIZATION:
#      VERSION: 1.0
#      CREATED: 01.10.2017 12:34:59
#     REVISION: ---
#===============================================================================
package Yandex::Disk::Public;

use 5.008001;
use strict;
use warnings;
use utf8;
use URI::Escape;
use Carp 'croak';

use base 'Yandex::Disk';

#Class for Public actions under Yandex Disk files and folders

our $VERSION = '0.07';

sub publicFile {
    my $self = shift;
    my %opt = @_;
    my $path = $opt{-path} || croak "Specify -path param";

    my $res = $self->__request('https://cloud-api.yandex.net/v1/disk/resources/publish?path=' . uri_escape($path), "PUT");
    my $code = $res->code;
    if ($code ne '200') {
        croak "Cant public file $path. Error: " . $res->status_line;
    }
    my $metainfo_href = $self->__fromJson($res->decoded_content)->{href};
    my $res_get_metainfo = $self->__getPublicUrl($metainfo_href);
    return $res_get_metainfo;
}

sub unpublicFile {
    my $self = shift;
    my %opt = @_;
    $self->{public_info} = {};
    my $path = $opt{-path} || croak "Specify -path param";

    my $res = $self->__request('https://cloud-api.yandex.net/v1/disk/resources/unpublish?path=' . uri_escape($path), "PUT");
    my $code = $res->code;
    if ($code ne '200') {
        croak "Cant unpublic file $path. Error: " . $res->status_line;
    }
    return 1;
}

sub listPublished {
    my $self = shift;
    my %opt = @_;
    my $limit = $opt{-limit};
    my $offset = $opt{-offset} || 0;
    my $type = $opt{-type};

    $limit = 999999 if not defined $limit;

    if ($type && ($type ne 'dir' && $type ne 'file')) {
        croak "Wrong -type value (dir/file)";
    }

    my $param = "limit=$limit&offset=$offset";
    $param .= "&type=$type" if $type;

    my $res = $self->__request('https://cloud-api.yandex.net/v1/disk/resources/public?' . $param, "GET");
    my $code = $res->code;
    if ($code ne '200') {
        croak "Cant get listPublished. Error: " . $res->status_line;
    }
    my $items = $self->__fromJson($res->decoded_content)->{items};
    return $items;
}

sub __getPublicUrl {
    my ($self, $href) = @_;
    my $res = $self->__request($href, "GET");
    my $code = $res->code;
    if ($code ne '200') {
        croak "Cant get public url by href: $href. Error: " . $res->status_line;
    }
    $self->{public_info} = $self->__fromJson($res->decoded_content);
    return 1;
}

sub publicUrl {
    return shift->{public_info}->{public_url};
}

sub publicType {
    return shift->{public_info}->{type};
}

1;

__END__