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.04';
3 2     2   18879 use strict;
  2         3  
  2         79  
4 2     2   9 use warnings;
  2         3  
  2         63  
5              
6 2     2   477 use parent 'Password::Policy::Rule';
  2         250  
  2         10  
7              
8 2     2   1146 use Password::Policy::Exception::InsufficientUppercase;
  2         4  
  2         188  
9              
10             sub check {
11 11     11 0 153 my $self = shift;
12 11         26 my $password = $self->prepare(shift);
13 10         42 my @uppercase = ($password =~ m/[A-Z]/g);
14 10         12 my $count = scalar @uppercase;
15 10 100       23 if($count < $self->arg) {
16 5         23 Password::Policy::Exception::InsufficientUppercase->throw;
17             }
18 5         16 return 1;
19             }
20              
21             1;
22              
23             __END__