File Coverage

blib/lib/Regexp/Pattern/Filename/Type/Compressed.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	15	15	100.0

package Regexp::Pattern::Filename::Type::Compressed;

use 5.010001;
use strict;
use warnings;
#use utf8;

use Filename::Type::Compressed ();

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-12-21'; # DATE
our $DIST = 'Regexp-Pattern-Filename-Type-Compressed'; # DIST
our $VERSION = '0.004'; # VERSION

our %RE;

my $re = join '|', map {quotemeta} sort keys %Filename::Type::Compressed::SUFFIXES;
$re = qr((?:$re)\z)i;

$RE{filename_type_compressed} = {
    summary => 'Compressed data filename',
    pat => $re,
    tags => ['anchored'],
    examples => [
        {str=>'foo', matches=>0, summary=>'No extension'},
        {str=>'gz', matches=>0, summary=>'Not an extension'},
        {str=>'foo.gz', matches=>1},
        {str=>'foo bar.TAR.BZ2', matches=>1, summary=>'Case insensitive'},
        {str=>'foo.xz is the file', matches=>0, summary=>'Regex is anchored'},
        {str=>'foo.mp3', matches=>0},
    ],
};

1;
# ABSTRACT: Compressed data filename

__END__