eleksir/yadproxy
0
Fork 0
Code Activity

Add perlcritic stuff :)

Browse Source
This commit is contained in:
eleksir
2021-05-30 14:30:00 +03:00
parent 0c147086c0
commit e655c11e0b
13 changed files with 127 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
test/yad_file_info.pl
View File

@@ -34,7 +34,7 @@ if ($c->{remote_dir} && $c->{remote_dir} ne '') {
}
my $disk = Yandex::Disk->new ( -token => GetAccessToken );
say Dumper $disk->fileInfo ( -path => sprintf ("%s/%s", $remote_dir, $file));
say Dumper $disk->fileInfo ( -path => sprintf ('%s/%s', $remote_dir, $file));
__END__
# vim: set ft=perl noet ai ts=4 sw=4 sts=4:

2
test/yad_mkdir.pl
View File

@@ -32,7 +32,7 @@ if ($c->{remote_dir} && $c->{remote_dir} ne '') {
$remote_dir = $c->{remote_dir};
$disk->createFolder (-path => $remote_dir, -recursive => 1) or do {
die "Невозможно создать каталог $c->{remote_dir} на Yandex.Диске";
croak "Невозможно создать каталог $c->{remote_dir} на Yandex.Диске";
};
}

4
test/yad_upload_file.pl
View File

@@ -39,7 +39,7 @@ if ($c->{remote_dir} && $c->{remote_dir} ne '') {
-path => $remote_dir,
-recursive => 1
) or do {
die "Невозможно создать каталог $c->{remote_dir} на Yandex.Диске";
croak "Невозможно создать каталог $c->{remote_dir} на Yandex.Диске";
};
}
@@ -47,7 +47,7 @@ $disk->uploadFile (
-file => $file,
-remote_path => $remote_dir,
-overwrite => 1
) or die "Не могу зааплодить файл в каталог $remote_dir на Yandex.Диске";
) or croak "Не могу зааплодить файл в каталог $remote_dir на Yandex.Диске";
say Dumper $disk->listFiles (-path =>$remote_dir);