File Coverage

blib/lib/Hook/Modular/Crypt/Base64.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 2 2 100.0
total 30 30 100.0


line stmt bran cond sub pod time code
1 10     10   684466 use 5.008;
  10         547  
  10         417  
2 10     10   63 use strict;
  10         19  
  10         331  
3 10     10   54 use warnings;
  10         20  
  10         501  
4              
5             package Hook::Modular::Crypt::Base64;
6             BEGIN {
7 10     10   215 $Hook::Modular::Crypt::Base64::VERSION = '1.101050';
8             }
9             # ABSTRACT: Base64 crypt mechanism for passwords in workflows
10 10     10   9392 use MIME::Base64 ();
  10         10458703  
  10         364  
11 10     10   121 use constant id => 'base64';
  10         26  
  10         2030  
12              
13             sub decrypt {
14 1     1 1 3 my ($self, $text) = @_;
15 1         9 MIME::Base64::decode($text);
16             }
17              
18             sub encrypt {
19 3     3 1 7 my ($self, $text) = @_;
20 3         57 MIME::Base64::encode($text, '');
21             }
22             1;
23              
24              
25             __END__