File Coverage

blib/lib/Data/Validate/WithYAML/Plugin/PasswordPolicy.pm

Criterion	Covered	Total	%
statement	46	46	100.0
branch	40	40	100.0
condition	15	15	100.0
subroutine	4	4	100.0
pod	1	1	100.0
total	106	106	100.0

package Data::Validate::WithYAML::Plugin::PasswordPolicy;

use warnings;
use strict;

use Carp;

# ABSTRACT: Plugin to check passwords against a policy

our $VERSION = '0.03';

sub check {
    my ($class, $value, $options) = @_;

    return unless defined $value;
    return if $value eq '';

    return 1 if !$options;

    my %policy = %{ $options->{'x-policy'} || {} };
    return 1 if !%policy;

    my $return = 1;

    if ( $policy{length} && $policy{length} =~ /,/ ) {
        my ($min,$max) = $policy{length} =~ /\s*(\d+)\s*,(?:\s*(\d+)\s*)?/;
        my $bool = 1;

        if(defined $min and length $value < $min){
            $bool = 0;
        }

        if(defined $max and length $value > $max){
            $bool = 0;
        }

        $return &= $bool;
    }
    elsif ( $policy{length} ) {
        $return &= ( $policy{length} == length $value );
    }

    return if !$return;

    if ( defined $policy{chars} and !ref $policy{chars} ) {
        $policy{chars} = [ $policy{chars} ];
    }

    CLASS:
    for my $class ( @{ $policy{chars} || [] } ) {
        my $re      = qr/[$class]/;
        my $matches = $value =~ $re ? 1 : 0;
        $return &= $matches;

        last CLASS if !$return;
    }

    return if !$return;

    if ( defined $policy{chars_blacklist} and !ref $policy{chars_blacklist} ) {
        $policy{chars_blacklist} = [ $policy{chars_blacklist} ];
    }

    CLASS:
    for my $class ( @{ $policy{chars_blacklist} || [] } ) {
        my $re      = qr/[$class]/;
        my $matches = $value =~ $re ? 0 : 1;
        $return &= $matches;

        last CLASS if !$return;
    }

    return if !$return;
    return 1;
}

1;

__END__