view release on metacpan or  search on metacpan

t/aion/fs/lay.t  view on Meta::CPAN

use common::sense; use open qw/:std :utf8/;  use Carp qw//; use Cwd qw//; use File::Basename qw//; use File::Find qw//; use File::Slurper qw//; use File::Spec qw//; use File::Path qw//; use Scalar::Util qw//;  use Test::More 0.98;  use String::Diff q...
# 
# Aion::Fs::Lay - файловый дескриптор с автозакрытием
# 
# # SYNOPSIS
# 
subtest 'SYNOPSIS' => sub { 
use Aion::Fs::Lay;
use Symbol;

my $file = "lay.test.txt";

my $f = Symbol::gensym;
open $f, ">", $file or die $!;

$f = Aion::Fs::Lay->new(f => $f, path => $file);

printf $f "%s!\n", "hi";

local ($::_g0 = do {-s $f;}, $::_e0 = do {0}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, '-s $f; # -> 0' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;
my $std = select $f; $| = 1; select $std;
local ($::_g0 = do {-s $f;}, $::_e0 = do {4}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, '-s $f; # -> 4' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

local ($::_g0 = do {$f->path;}, $::_e0 = "lay.test.txt"); ::ok $::_g0 eq $::_e0, '$f->path; # => lay.test.txt' or ::diag ::_string_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

undef $f;

# 
# # DESCRIPTION
# 
# Содержит файловый дескриптор, который закрывается в деструкторе. А благодаря перегрузке оператора `*{}` работает со всеми файловыми опеÑ...
# 
# Используется в [Aion::Fs::ilay](https://metacpan.org/pod/Aion::Fs#ilay-\(%3B%24path\)).
# 
# # SUBROUTINES
# 
# ## new (%params)
# 
# Конструктор.
# 
# ## path ()
# 
# Путь к файлу.
# 
# ## DESTROY ()
# 
# Деструктор. Закрывает файловый дескриптор.
# 
# # AUTHOR
# 
# Yaroslav O. Kosmina <dart@cpan.org>
# 
# # LICENSE
# 
# âš– **GPLv3**
# 
# # COPYRIGHT
# 
# The Aion::Fs::Lay module is copyright © 2025 Yaroslav O. Kosmina. Rusland. All rights reserved.

	::done_testing;
};

::done_testing;