File Coverage

blib/lib/Password/Policy/Rule.pm

Criterion	Covered	Total	%
statement	18	19	94.7
branch			n/a
condition	6	8	75.0
subroutine	7	8	87.5
pod	0	5	0.0
total	31	40	77.5

package Password::Policy::Rule;
$Password::Policy::Rule::VERSION = '0.06';
use strict;
use warnings;

use Password::Policy::Exception::EmptyPassword;

sub new {
    my $class = shift;
    my $arg = shift || 0;

    my $self = bless {
        arg => $arg
    } => $class;
    return $self;
}

sub arg {
    my $self = shift;
    return $self->{arg} || $self->default_arg;
}

sub check { return "This was not implemented properly."; }
sub default_arg { return 1; }

sub prepare {
    my ($self, $password) = @_;
    return $password || Password::Policy::Exception::EmptyPassword->throw;
}

1;

__END__