view release on metacpan or  search on metacpan

lib/Convert/Base32.pm  view on Meta::CPAN

101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
    my $padding = length($str) % 8;
    $padding < 5
        or Carp::croak('Length of data invalid');
    $str =~ s/0{$padding}\z//
        or Carp::croak('Padding bits at the end of output buffer are not all zero');
 
    return pack('B*', $str);
}
 
 
if ($] lt '5.800000') {
    require bytes;
    *encode_base32 = \&encode_base32_pre58;
    *decode_base32 = \&decode_base32_pre58;
} else {
    *encode_base32 = \&encode_base32_perl58;
    *decode_base32 = \&decode_base32_perl58;
}
 
 
1;