File Coverage

blib/lib/autobox/Base64.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch			n/a
condition	1	2	50.0
subroutine	14	14	100.0
pod			n/a
total	47	48	97.9

#
# This file is part of autobox-Base64
#
# This software is Copyright (c) 2013 by Chris Weyl.
#
# This is free software, licensed under:
#
#   The GNU Lesser General Public License, Version 2.1, February 1999
#
package autobox::Base64;
{
  $autobox::Base64::VERSION = '0.001';
}

# ABSTRACT: Convert strings to and from base64 easily

use v5.10;
use strict;
use warnings;
use utf8;

use parent 'autobox';

sub import { shift->SUPER::import(STRING => 'autobox::Base64::STRING') }


{
    package autobox::Base64::STRING;
{
  $autobox::Base64::STRING::VERSION = '0.001';
}
    use strict;
    use warnings;
    use utf8;

    use MIME::Base64 ();

    sub decode_base64 { MIME::Base64::decode_base64(shift) }
    sub from_base64   { goto \&decode_base64               }

    sub encode_base64 { MIME::Base64::encode_base64(shift, shift // undef) }
    sub to_base64     { goto \&encode_base64                               }
}

!!42;

__END__