view release on metacpan or  search on metacpan

t/004_custom_base64.t  view on Meta::CPAN

    my $faux_pem = "-----BEGIN XXX-----\nencoded\n-----END XXX-----";

    is(
        Crypt::Format::der2pem(0000, 'XXX'),
        $faux_pem,
        'der2pem() (encode())',
    );

    is(
        Crypt::Format::pem2der($faux_pem),
        'decoded',
        'pem2der() (decode())',
    );
}

#----------------------------------------------------------------------

package BadBase64;

sub encode { "encoded\n" }

sub decode { 'decoded' }

1;