File Coverage

blib/lib/Crypt/OpenPGP/OnePassSig.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 2 50.0
total 22 23 95.6


line stmt bran cond sub pod time code
1             package Crypt::OpenPGP::OnePassSig;
2 1     1   8 use strict;
  1         3  
  1         46  
3 1     1   7 use warnings;
  1         2  
  1         270  
4              
5             our $VERSION = '1.19'; # VERSION
6              
7 1     1 0 8 sub new { bless { }, $_[0] }
8              
9             sub parse {
10 1     1 1 3 my $class = shift;
11 1         2 my($buf) = @_;
12 1         102 my $onepass = $class->new;
13 1         6 $onepass->{version} = $buf->get_int8;
14 1         28 $onepass->{type} = $buf->get_int8;
15 1         18 $onepass->{hash_alg} = $buf->get_int8;
16 1         17 $onepass->{pk_alg} = $buf->get_int8;
17 1         16 $onepass->{key_id} = $buf->get_bytes(8);
18 1         18 $onepass->{nested} = $buf->get_int8;
19 1         19 $onepass;
20             }
21              
22             1;
23             __END__