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.04';
3 2     2   18347 use strict;
  2         3  
  2         110  
4 2     2   12 use warnings;
  2         2  
  2         47  
5              
6 2     2   408 use parent 'Password::Policy::Encryption';
  2         407  
  2         8  
7              
8 2     2   695 use String::Multibyte;
  2         4071  
  2         176  
9              
10             sub enc {
11 6     6 0 717 my $self = shift;
12 6         20 my $password = $self->prepare(shift);
13 5         19 my $strmb = String::Multibyte->new('UTF8');
14 5         3163 return $strmb->strrev($password);
15             }
16              
17             1;
18              
19             __END__