File Coverage

blib/lib/Password/Policy/Encryption/ROT13.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 21 22 95.4


line stmt bran cond sub pod time code
1             package Password::Policy::Encryption::ROT13;
2             $Password::Policy::Encryption::ROT13::VERSION = '0.03';
3 2     2   19106 use strict;
  2         3  
  2         62  
4 2     2   6 use warnings;
  2         2  
  2         50  
5              
6 2     2   459 use parent 'Password::Policy::Encryption';
  2         256  
  2         11  
7              
8 2     2   646 use String::Multibyte;
  2         3971  
  2         298  
9              
10             sub enc {
11 6     6 0 1042 my $self = shift;
12 6         25 my $password = $self->prepare(shift);
13 5         21 my $strmb = String::Multibyte->new('UTF8');
14 5         3152 return $strmb->strrev($password);
15             }
16              
17             1;
18              
19             __END__