App-FilenameUtils
view release on metacpan or search on metacpan
LICENSE
MANIFEST
META.json
META.yml
Makefile.PL
README
dist.ini
lib/App/FilenameUtils.pm
script/check-archive-filename
script/check-audio-filename
script/check-backup-filename
script/check-compressed-filename
script/check-ebook-filename
script/check-executable-filename
script/check-image-filename
script/check-media-filename
script/check-video-filename
script/parse-media-filename
t/00-compile.t
t/author-critic.t
t/author-pod-coverage.t
"name" : "GenPericmdScript check-archive-filename",
"version" : "0.425"
},
{
"class" : "Dist::Zilla::Plugin::GenPericmdScript",
"name" : "GenPericmdScript check-audio-filename",
"version" : "0.425"
},
{
"class" : "Dist::Zilla::Plugin::GenPericmdScript",
"name" : "GenPericmdScript check-backup-filename",
"version" : "0.425"
},
{
"class" : "Dist::Zilla::Plugin::GenPericmdScript",
"name" : "GenPericmdScript check-compressed-filename",
"version" : "0.425"
},
{
"class" : "Dist::Zilla::Plugin::GenPericmdScript",
"name" : "GenPericmdScript check-ebook-filename",
-
class: Dist::Zilla::Plugin::GenPericmdScript
name: 'GenPericmdScript check-archive-filename'
version: '0.425'
-
class: Dist::Zilla::Plugin::GenPericmdScript
name: 'GenPericmdScript check-audio-filename'
version: '0.425'
-
class: Dist::Zilla::Plugin::GenPericmdScript
name: 'GenPericmdScript check-backup-filename'
version: '0.425'
-
class: Dist::Zilla::Plugin::GenPericmdScript
name: 'GenPericmdScript check-compressed-filename'
version: '0.425'
-
class: Dist::Zilla::Plugin::GenPericmdScript
name: 'GenPericmdScript check-ebook-filename'
version: '0.425'
-
Makefile.PL view on Meta::CPAN
my %WriteMakefileArgs = (
"ABSTRACT" => "CLIs for Filename::*",
"AUTHOR" => "perlancar <perlancar\@cpan.org>",
"CONFIGURE_REQUIRES" => {
"ExtUtils::MakeMaker" => 0
},
"DISTNAME" => "App-FilenameUtils",
"EXE_FILES" => [
"script/check-archive-filename",
"script/check-audio-filename",
"script/check-backup-filename",
"script/check-compressed-filename",
"script/check-ebook-filename",
"script/check-executable-filename",
"script/check-image-filename",
"script/check-media-filename",
"script/check-video-filename",
"script/parse-media-filename"
],
"LICENSE" => "perl",
"NAME" => "App::FilenameUtils",
This document describes version 0.003 of App::FilenameUtils (from Perl
distribution App-FilenameUtils), released on 2025-08-23.
SYNOPSIS
DESCRIPTION
This distribution includes several utilities related to Filename::*
modules:
1. check-archive-filename
2. check-audio-filename
3. check-backup-filename
4. check-compressed-filename
5. check-ebook-filename
6. check-executable-filename
7. check-image-filename
8. check-media-filename
9. check-video-filename
10. parse-media-filename
FUNCTIONS
check_archive_filename
response ($status_code is not 2xx). Fourth element (%result_meta) is
called result metadata and is optional, a hash that contains extra
information, much like how HTTP response headers provide additional
metadata.
Return value: (bool|hash)
Return false if no archive suffixes detected. Otherwise return a hash of
information.
check_backup_filename
Usage:
check_backup_filename(%args) -> [$status_code, $reason, $payload, \%result_meta]
Check whether filename indicates being a backup file.
This function is not exported.
Arguments ('*' denotes required arguments):
* ci => *bool* (default: 1)
Whether to match case-insensitively.
* detail => *bool*
element ($reason) is a string containing error message, or something
like "OK" if status is 200. Third element ($payload) is the actual
result, but usually not present when enveloped result is an error
response ($status_code is not 2xx). Fourth element (%result_meta) is
called result metadata and is optional, a hash that contains extra
information, much like how HTTP response headers provide additional
metadata.
Return value: (bool|hash)
Return false if not detected as backup name. Otherwise return a hash,
which may contain these keys: "original_filename". In the future there
will be extra information returned, e.g. editor name (if filename
indicates backup from certain backup program), date (if filename
contains date information), and so on.
check_compressed_filename
Usage:
check_compressed_filename(%args) -> [$status_code, $reason, $payload, \%result_meta]
Check whether filename indicates being compressed.
This function is not exported.
[GenPericmdScript / GenPericmdScript check-archive-filename]
url=/App/FilenameUtils/check_archive_filename
read_env=0
read_config=0
[GenPericmdScript / GenPericmdScript check-audio-filename]
url=/App/FilenameUtils/check_audio_filename
read_env=0
read_config=0
[GenPericmdScript / GenPericmdScript check-backup-filename]
url=/App/FilenameUtils/check_backup_filename
read_env=0
read_config=0
[GenPericmdScript / GenPericmdScript check-compressed-filename]
url=/App/FilenameUtils/check_compressed_filename
read_env=0
read_config=0
[GenPericmdScript / GenPericmdScript check-ebook-filename]
url=/App/FilenameUtils/check_ebook_filename
lib/App/FilenameUtils.pm view on Meta::CPAN
modify_meta => sub {
$_[0]{result_naked} = 0;
# XXX we should adjust the examples instead
delete $_[0]{examples};
},
wrap_code => _gen_wrapper('an audio file'),
);
require Filename::Type::Backup;
gen_modified_sub(
base_name => 'Filename::Type::Backup::check_backup_filename',
add_args => {
%argsopt,
},
modify_meta => sub {
$_[0]{result_naked} = 0;
# XXX we should adjust the examples instead
delete $_[0]{examples};
},
wrap_code => _gen_wrapper('a backup file'),
);
require Filename::Type::Compressed;
gen_modified_sub(
base_name => 'Filename::Type::Compressed::check_compressed_filename',
add_args => {
%argsopt,
},
modify_meta => sub {
$_[0]{result_naked} = 0;
lib/App/FilenameUtils.pm view on Meta::CPAN
=head1 DESCRIPTION
This distribution includes several utilities related to Filename::* modules:
=over
=item 1. L<check-archive-filename>
=item 2. L<check-audio-filename>
=item 3. L<check-backup-filename>
=item 4. L<check-compressed-filename>
=item 5. L<check-ebook-filename>
=item 6. L<check-executable-filename>
=item 7. L<check-image-filename>
=item 8. L<check-media-filename>
lib/App/FilenameUtils.pm view on Meta::CPAN
that contains extra information, much like how HTTP response headers provide additional metadata.
Return value: (bool|hash)
Return false if no archive suffixes detected. Otherwise return a hash of
information.
=head2 check_backup_filename
Usage:
check_backup_filename(%args) -> [$status_code, $reason, $payload, \%result_meta]
Check whether filename indicates being a backup file.
This function is not exported.
Arguments ('*' denotes required arguments):
=over 4
=item * B<ci> => I<bool> (default: 1)
Whether to match case-insensitively.
lib/App/FilenameUtils.pm view on Meta::CPAN
First element ($status_code) is an integer containing HTTP-like status code
(200 means OK, 4xx caller error, 5xx function error). Second element
($reason) is a string containing error message, or something like "OK" if status is
200. Third element ($payload) is the actual result, but usually not present when enveloped result is an error response ($status_code is not 2xx). Fourth
element (%result_meta) is called result metadata and is optional, a hash
that contains extra information, much like how HTTP response headers provide additional metadata.
Return value: (bool|hash)
Return false if not detected as backup name. Otherwise return a hash, which may
contain these keys: C<original_filename>. In the future there will be extra
information returned, e.g. editor name (if filename indicates backup from
certain backup program), date (if filename contains date information), and so
on.
=head2 check_compressed_filename
Usage:
check_compressed_filename(%args) -> [$status_code, $reason, $payload, \%result_meta]
script/check-backup-filename view on Meta::CPAN
#!perl
# Note: This script is a CLI for Riap function /App/FilenameUtils/check_backup_filename
# and generated automatically using Perinci::CmdLine::Gen version 0.502
use 5.010001;
use strict;
use warnings;
use Perinci::CmdLine::Any;
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2025-08-23'; # DATE
our $DIST = 'App-FilenameUtils'; # DIST
our $VERSION = '0.003'; # VERSION
my $cmdline = Perinci::CmdLine::Any->new(
url => "/App/FilenameUtils/check_backup_filename",
program_name => "check-backup-filename",
read_config => 0,
read_env => 0,
);
$cmdline->run;
# ABSTRACT: Check whether filename indicates being a backup file
# PODNAME: check-backup-filename
__END__
=pod
=encoding UTF-8
=head1 NAME
check-backup-filename - Check whether filename indicates being a backup file
=head1 VERSION
This document describes version 0.003 of check-backup-filename (from Perl distribution App-FilenameUtils), released on 2025-08-23.
=head1 SYNOPSIS
B<check-backup-filename> B<L<--help|/"--help, -h, -?">> (or B<L<-h|/"--help, -h, -?">>, B<L<-?|/"--help, -h, -?">>)
B<check-backup-filename> B<L<--version|/"--version, -v">> (or B<L<-v|/"--version, -v">>)
B<check-backup-filename> [B<L<--ci|/"--no-ci">>|B<L<--no-ci|/"--no-ci">>|B<L<--noci|/"--no-ci">>] [B<L<--detail|/"--detail, -l">>|B<L<-l|/"--detail, -l">>|B<L<--no-detail|/"--detail, -l">>|B<L<--nodetail|/"--detail, -l">>] [B<L<--format|/"--format=s"...
=head1 DESCRIPTION
=head1 OPTIONS
C<*> marks required options.
=head2 Main options
=over
script/check-backup-filename view on Meta::CPAN
=head1 COMPLETION
This script has shell tab completion capability with support for several
shells.
=head2 bash
To activate bash completion for this script, put:
complete -C check-backup-filename check-backup-filename
in your bash startup (e.g. F<~/.bashrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.
It is recommended, however, that you install modules using L<cpanm-shcompgen>
which can activate shell completion for scripts immediately.
=head2 tcsh
To activate tcsh completion for this script, put:
complete check-backup-filename 'p/*/`check-backup-filename`/'
in your tcsh startup (e.g. F<~/.tcshrc>). Your next shell session will then
recognize tab completion for the command. Or, you can also directly execute the
line above in your shell to activate immediately.
It is also recommended to install L<shcompgen> (see above).
=head2 other shells
For fish and zsh, install L<shcompgen> as described above.
t/00-compile.t view on Meta::CPAN
plan tests => 11 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
my @module_files = (
'App/FilenameUtils.pm'
);
my @scripts = (
'script/check-archive-filename',
'script/check-audio-filename',
'script/check-backup-filename',
'script/check-compressed-filename',
'script/check-ebook-filename',
'script/check-executable-filename',
'script/check-image-filename',
'script/check-media-filename',
'script/check-video-filename',
'script/parse-media-filename'
);
# no fake home requested
t/author-critic.t view on Meta::CPAN
}
use strict;
use warnings;
# this test was generated with Dist::Zilla::Plugin::Test::Perl::Critic::Subset 3.001.006
use Test::Perl::Critic (-profile => "") x!! -e "";
my $filenames = ['lib/App/FilenameUtils.pm','script/check-archive-filename','script/check-audio-filename','script/check-backup-filename','script/check-compressed-filename','script/check-ebook-filename','script/check-executable-filename','script/check...
unless ($filenames && @$filenames) {
$filenames = -d "blib" ? ["blib"] : ["lib"];
}
all_critic_ok(@$filenames);
( run in 4.234 seconds using v1.01-cache-2.11-cpan-39bf76dae61 )