view release on metacpan or  search on metacpan

script/dir-not-empty  view on Meta::CPAN

use strict;
use warnings;

use App::FileTestUtils;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-11-30'; # DATE
our $DIST = 'App-FileTestUtils'; # DIST
our $VERSION = '0.005'; # VERSION

App::FileTestUtils::do_script("dir_not_empty");

# ABSTRACT: Test that a directory is not empty
# PODNAME: dir-not-empty

__END__

=pod

=encoding UTF-8

script/dir-not-empty  view on Meta::CPAN

 % dir-not-empty "foo" && echo "foo/ is not empty"

With grep mode (C<-g>), you pass one or more filenames in argument or stdin to
the script and it will print the non-empty directories (or those that are not,
if you specify C<-v> or C<--invert-match>).

=head1 DESCRIPTION

This is CLI for L<File::Util::Test>'s
L<dir_not_empty|File::Util::Test/dir_not_empty>.

=head1 HOMEPAGE

Please visit the project's homepage at L<https://metacpan.org/release/App-FileTestUtils>.

=head1 SOURCE

Source repository is at L<https://github.com/perlancar/perl-App-FileTestUtils>.

=head1 SEE ALSO