File Coverage

blib/lib/String/Any/Extensions.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	4	4	100.0
condition			n/a
subroutine	10	10	100.0
pod	3	3	100.0
total	40	40	100.0

package String::Any::Extensions;

=encoding UTF-8

=head1 NAME

String::Any::Extensions - Get extensions from string possible for files.

=head1 VERSION

version 0.02

=cut

our $VERSION = '0.02';    # VERSION

use utf8;
use strict;
use warnings;
use List::Util qw/any/;
use vars qw/$VERSION @EXPORT_OK/;
require Exporter;
*import    = \&Exporter::import;
@EXPORT_OK = qw( exclude extension include);

=head2 include

True or false if the file extension is in the including list.

=cut

sub include {
    return ( any { $_ eq extension( $_[0] ) } @{ $_[1] } ) ? 1 : 0;
}

=head2 exclude

True or false if the file extension is in the excluding list.

=cut

sub exclude {
    return ( !scalar any { $_ eq extension( $_[0] ) } @{ $_[1] } ) ? 1 : 0;
}

=head2 extension

Parse extension from file string.

=cut

sub extension {
    my ($extension) = $_[0] =~ /((\.[^.\s|(\/|\\|::]+)+)$/;
    return $extension;
}

1;

__END__