view release on metacpan or  search on metacpan

t/aion/fs/find.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...
# # NAME
# 
# Aion::Fs::Find - итератор поиска файлов для Aion::Fs#find
# 
# # SYNOPSIS
# 
subtest 'SYNOPSIS' => sub { 
use Aion::Fs::Find;

my $iter = Aion::Fs::Find->new(
	files => ["."],
	filters => [],
	errorenter => sub {},
	noenters => [],
);

my @files;
while (<$iter>) {
    push @files, $_;
}

local ($::_g0 = do {\@files}, $::_e0 = do {["."]}); ::is_deeply $::_g0, $::_e0, '\@files # --> ["."]' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

# 
# # DESCRIPTION
# 
# Итератор поиска файлов для функции-адаптера `find` из модуля `Aion::Fs`.
# 
# Отдельно использовать не предполагается.
# 
# Обладает перегруженными операторами  `<>`, `@{}` и `&{}`.
# 
# # SUBROUTINES
# 
# ## new (%params)
# 
# Конструктор.
# 
# ## next ()
# 
# Следующая итерация.
# 
# # AUTHOR
# 
# Yaroslav O. Kosmina <dart@cpan.org>
# 
# # LICENSE
# 
# âš– **GPLv3**
# 
# # COPYRIGHT
# 
# The Aion::Fs::Find module is copyright © 2025 Yaroslav O. Kosmina. Rusland. All rights reserved.

	::done_testing;
};

::done_testing;