File Coverage

blib/lib/Data/Validate/Terrorist.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	9	12	75.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	1	2	50.0
total	50	56	89.2

package Data::Validate::Terrorist;

use strict;
use 5.008_005;
our $VERSION = '0.02';

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw/is_terrorist/;

use Carp;

sub is_terrorist {
    my $self = shift if ref($_[0]); # OO

    my $name = join('', @_);
    $name = uc($name);
    $name =~ s/[[:^alpha:]]//g;

    my @data = __load_data();
    return 1 if grep { $_ eq $name } @data;

    # try reverse
    if (@_ > 1) {
        $name = join('', reverse @_);
        $name = uc($name);
        $name =~ s/[[:^alpha:]]//g;
        return 1 if grep { $_ eq $name } @data;
    }

    return 0;
}

my @__data;
sub __load_data {
    return @__data if @__data;

    my $file = __FILE__;
    $file =~ s/\.pm/\.csv/;
    open(my $fh, '<', $file) or croak "Can't find $file, please re-install the module.\n";
    @__data = <$fh>;
    close($fh);

    chomp(@__data);
    @__data;
}

# for OO
sub new {
    my $class = shift;
    return bless {}, ref($class) || $class;
}

1;
__END__