File Coverage

blib/lib/Password/Policy/Rule/Uppercase.pm
Criterion Covered Total %
statement 19 19 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 26 27 96.3


line stmt bran cond sub pod time code
1             package Password::Policy::Rule::Uppercase;
2             $Password::Policy::Rule::Uppercase::VERSION = '0.06';
3 2     2   157441 use strict;
  2         4  
  2         92  
4 2     2   11 use warnings;
  2         3  
  2         140  
5              
6 2     2   593 use parent 'Password::Policy::Rule';
  2         408  
  2         18  
7              
8 2     2   1201 use Password::Policy::Exception::InsufficientUppercase;
  2         7  
  2         298  
9              
10             sub check {
11 11     11 0 350 my $self = shift;
12 11         42 my $password = $self->prepare(shift);
13 10         64 my @uppercase = ($password =~ m/[A-Z]/g);
14 10         21 my $count = scalar @uppercase;
15 10 100       61 if($count < $self->arg) {
16 5         31 Password::Policy::Exception::InsufficientUppercase->throw;
17             }
18 5         23 return 1;
19             }
20              
21             1;
22              
23             __END__