0

Изменения для уточнения возможности кэширования ответов yad.

* Добавлены raw-функции, которые возвращают и http-заголовки ответа
yad-а тоже
* Уточнения в README.md и TODO
* Мелкие косметические исправления.
This commit is contained in:
eleksir
2021-08-28 13:19:31 +03:00
parent e655c11e0b
commit cd4a0f5cb4
11 changed files with 172 additions and 28 deletions

31
test/yad_list_all_files_raw.pl Executable file
View File

@@ -0,0 +1,31 @@
#!/usr/bin/perl
use 5.018;
use strict;
use warnings;
use utf8;
use open qw (:std :utf8);
use English qw ( -no_match_vars );
use version; our $VERSION = qw (1.0);
my $workdir;
# сменим рабочий каталог
BEGIN {
use Cwd qw (chdir abs_path);
my @CWD = split /\//xms, abs_path ($PROGRAM_NAME);
if ($#CWD > 1) { $#CWD = $#CWD - 2; }
$workdir = join '/', @CWD;
chdir $workdir;
}
use lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
use YadProxy::Lib qw (GetAccessToken);
use Yandex::Disk;
use Data::Dumper;
my $disk = Yandex::Disk->new ( -token => GetAccessToken );
say Dumper $disk->listAllFilesRaw ();
__END__
# vim: set ft=perl noet ai ts=4 sw=4 sts=4: