File Coverage

blib/lib/Password/Policy/Exception/InsufficientUppercase.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 14 15 93.3


line stmt bran cond sub pod time code
1             package Password::Policy::Exception::InsufficientUppercase;
2             {
3             $Password::Policy::Exception::InsufficientUppercase::VERSION = '0.02';
4             }
5              
6 1     1   6 use strict;
  1         3  
  1         40  
7 1     1   6 use warnings;
  1         1  
  1         35  
8              
9 1     1   6 use parent 'Password::Policy::Exception';
  1         2  
  1         8  
10              
11 3     3 0 23 sub error { return "The specified password did not have enough uppercase ASCII characters"; }
12              
13             1;
14              
15              
16              
17             =pod
18              
19             =head1 NAME
20              
21             Password::Policy::Exception::InsufficientUppercase
22              
23             =head1 VERSION
24              
25             version 0.02
26              
27             =head1 AUTHOR
28              
29             Andrew Nelson
30              
31             =head1 COPYRIGHT AND LICENSE
32              
33             This software is copyright (c) 2012 by Andrew Nelson.
34              
35             This is free software; you can redistribute it and/or modify it under
36             the same terms as the Perl 5 programming language system itself.
37              
38             =cut
39              
40              
41             __END__