File Coverage

blib/lib/Convert/Base91.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 2 2 100.0
total 25 25 100.0


line stmt bran cond sub pod time code
1             package Convert::Base91;
2              
3 1     1   52865 use 5.014000;
  1         3  
4 1     1   4 use strict;
  1         2  
  1         23  
5 1     1   5 use warnings;
  1         1  
  1         30  
6 1     1   381 use parent qw/Exporter/;
  1         219  
  1         4  
7              
8             our @EXPORT_OK = qw/encode_base91 decode_base91/;
9             our @EXPORT = ();
10              
11             our $VERSION = '1.000';
12              
13             require XSLoader;
14             XSLoader::load('Convert::Base91', $VERSION);
15              
16             our $base91 = __PACKAGE__->new;
17              
18             sub encode_base91 {
19 2     2 1 64 my ($data) = @_;
20 2         12 $base91->encode($data);
21 2         9 $base91->encode_end;
22             }
23              
24             sub decode_base91 {
25 3     3 1 7 my ($data) = @_;
26 3         11 $base91->decode($data);
27 3         15 $base91->decode_end;
28             }
29              
30             1;
31             __END__