File Coverage

blib/lib/MIME/Base32/XS.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package MIME::Base32::XS;
2              
3 1     1   614 use strict;
  1         1  
  1         25  
4 1     1   4 use warnings;
  1         1  
  1         24  
5 1     1   4 use XSLoader;
  1         2  
  1         17  
6 1     1   4 use base qw/Exporter/;
  1         2  
  1         142  
7              
8             our $VERSION = '0.03';
9              
10             our @EXPORT = qw/
11             encode_base32
12             decode_base32
13             /;
14              
15             XSLoader::load('MIME::Base32::XS', $VERSION);
16              
17             1;
18              
19             =encoding utf8
20              
21             =head1 NAME
22              
23             MIME::Base32::XS - Encoding and decoding Base32
24              
25             =head1 SYNOPSIS
26            
27             use MIME::Base32::XS;
28            
29             $encoded = encode_base32('Foo');
30             $decoded = decode_base32($encoded);
31              
32             =head1 DESCRIPTION
33              
34             This module provides functions to encode and decode strings into and from the
35             Base32 encoding specified in RFC 3548.
36              
37             =head1 METHODS
38              
39             =head2 encode_base32
40            
41             my $encoded = encode_base32('Baz');
42              
43             Encode from string.
44              
45             =head2 decode_base32
46            
47             my $decoded = decode_base32('IJQXU===');
48              
49             Decode to string.
50              
51             =head1 AUTHOR
52            
53             Lucas Tiago de Moraes C
54            
55             =head1 COPYRIGHT AND LICENSE
56            
57             This software is copyright (c) 2020 by Lucas Tiago de Moraes.
58            
59             This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
60            
61             =cut