PERLANCAR / Regexp-Pattern-Filename-Video-0.002 / lib / Regexp / Pattern / Filename / Video.pm 
package Regexp::Pattern::Filename::Video;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-05-31'; # DATE
our $DIST = 'Regexp-Pattern-Filename-Video'; # DIST
our $VERSION = '0.002'; # VERSION

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

use Filename::Video ();

our %RE;

$RE{filename_video} = {
    summary => 'Video filename',
    pat => $Filename::Video::RE,
    tags => ['anchored'],
    examples => [
        {str=>'foo', matches=>0, summary=>'No extension'},
        {str=>'mp4', matches=>0, summary=>'Not an extension'},
        {str=>'foo.mp4', matches=>1},
        {str=>'foo bar.MKV', matches=>1, summary=>'Case insensitive'},
        {str=>'foo.MKV is the file', matches=>0, summary=>'Regex is anchored'},
        {str=>'foo.mp3', matches=>0},
    ],
};

1;
# ABSTRACT: Video filename

__END__

=pod

=encoding UTF-8

=head1 NAME

Regexp::Pattern::Filename::Video - Video filename

=head1 VERSION

This document describes version 0.002 of Regexp::Pattern::Filename::Video (from Perl distribution Regexp-Pattern-Filename-Video), released on 2020-05-31.

=head1 SYNOPSIS

 use Regexp::Pattern; # exports re()
 my $re = re("Filename::Video::filename_video");

=head1 DESCRIPTION

This is a L<Regexp::Pattern> wrapper for L<Filename::Video>.

=head1 PATTERNS

=over

=item * filename_video

Video filename.

Examples:

No extension.

 "foo" =~ re("Filename::Video::filename_video");  # DOESN'T MATCH

Not an extension.

 "mp4" =~ re("Filename::Video::filename_video");  # DOESN'T MATCH

Example #3.

 "foo.mp4" =~ re("Filename::Video::filename_video");  # matches

Case insensitive.

 "foo bar.MKV" =~ re("Filename::Video::filename_video");  # matches

Regex is anchored.

 "foo.MKV is the file" =~ re("Filename::Video::filename_video");  # DOESN'T MATCH

Example #6.

 "foo.mp3" =~ re("Filename::Video::filename_video");  # DOESN'T MATCH

=back

=head1 HOMEPAGE

Please visit the project's homepage at L<https://metacpan.org/release/Regexp-Pattern-Filename-Video>.

=head1 SOURCE

Source repository is at L<https://github.com/perlancar/perl-Regexp-Pattern-Filename-Video>.

=head1 BUGS

Please report any bugs or feature requests on the bugtracker website L<https://rt.cpan.org/Public/Dist/Display.html?Name=Regexp-Pattern-Filename-Video>

When submitting a bug or request, please include a test-file or a
patch to an existing test-file that illustrates the bug or desired
feature.

=head1 SEE ALSO

L<Filename::Video>

L<Regexp::Pattern>

Some utilities related to Regexp::Pattern: L<App::RegexpPatternUtils>, L<rpgrep> from L<App::rpgrep>.

=head1 AUTHOR

perlancar <perlancar@cpan.org>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2020 by perlancar@cpan.org.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut