File Coverage

blib/lib/POE/Filter/Postfix/Base64.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 11 11 100.0
pod 7 7 100.0
total 37 37 100.0


line stmt bran cond sub pod time code
1 1     1   1764 use strict;
  1         3  
  1         38  
2 1     1   5 use warnings;
  1         1  
  1         59  
3              
4             package POE::Filter::Postfix::Base64;
5             our $VERSION = '0.003';
6              
7              
8 1     1   7 use base qw(POE::Filter::Postfix);
  1         1  
  1         94  
9 1     1   974 use MIME::Base64 qw(encode_base64 decode_base64);
  1         925  
  1         264  
10              
11 6     6 1 14 sub attribute_separator { ":" }
12 3     3 1 10 sub attribute_terminator { "\n" }
13 3     3 1 17 sub request_terminator { "\n" }
14              
15 4     4 1 26 sub encode_key { encode_base64($_[1], '') }
16 4     4 1 24 sub encode_value { encode_base64($_[1], '') }
17              
18 4     4 1 20 sub decode_key { decode_base64($_[1]) }
19 4     4 1 41 sub decode_value { decode_base64($_[1]) }
20              
21             1;
22              
23             __END__