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.02';
}

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;



=pod

=head1 NAME

Password::Policy::Rule

=head1 VERSION

version 0.02

=head1 AUTHOR

Andrew Nelson

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2012 by Andrew Nelson.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut


__END__