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.06';
3 2     2   142860 use strict;
  2         5  
  2         82  
4 2     2   9 use warnings;
  2         35  
  2         98  
5              
6 2     2   562 use parent 'Password::Policy::Encryption';
  2         368  
  2         12  
7              
8 2     2   774 use String::Multibyte;
  2         6480  
  2         240  
9              
10             sub enc {
11 6     6 0 1406 my $self = shift;
12 6         29 my $password = $self->prepare(shift);
13 5         24 my $strmb = String::Multibyte->new('UTF8');
14 5         4332 return $strmb->strrev($password);
15             }
16              
17             1;
18              
19             __END__