File Coverage

blib/lib/Crypt/OpenPGP/Buffer.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	31	31	100.0

package Crypt::OpenPGP::Buffer;

use strict;
use warnings;

our $VERSION = '1.19'; # VERSION

use base qw( Data::Buffer );

use Crypt::OpenPGP::Util qw( bin2mp mp2bin bitsize );

sub get_big_int {
    my $buf = shift;
    my $bits = $buf->get_int16;
    my $bytes = int(($bits + 7) / 8);
    my $off = $buf->{offset};
    $buf->{offset} += $bytes;
    my $int = bin2mp($buf->bytes($off, $bytes));
    return "$int";
}

sub put_big_int {
    my $buf = shift;
    my($n) = @_;
    $buf->put_int16(bitsize($n));
    $buf->put_bytes(mp2bin($n));
}

*get_mp_int = \&get_big_int;
*put_mp_int = \&put_big_int;

1;
__END__