File Coverage

blib/lib/Data/Password/Common.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	1	2	50.0
condition	2	3	66.6
subroutine	10	10	100.0
pod	0	1	0.0
total	46	49	93.8

use v5.10;
use strict;
use warnings;

package Data::Password::Common;
# ABSTRACT: Check a password against a list of common passwords
our $VERSION = '0.004'; # VERSION

# Dependencies
use File::ShareDir;
use IO::File;
use Search::Dict;
use autodie 2.00;

use Sub::Exporter -setup => { exports => [ 'found' => \&build_finder ] };

sub build_finder {
    my ( $class, $name, $arg, $col ) = @_;
    my $list_path = $arg->{list}
      || File::ShareDir::dist_file( "Data-Password-Common", "common.txt" );
    my $list_handle = IO::File->new( $list_path, "<:utf8" );

    return sub {
        return unless @_;
        my $password = shift;
        look $list_handle, $password;
        chomp( my $found = <$list_handle> );
        return $found eq $password;
    };
}

1;


# vim: ts=2 sts=2 sw=2 et:

__END__