File Coverage

blib/lib/Crypt/OpenPGP/Trust.pm
Criterion Covered Total %
statement 18 19 94.7
branch n/a
condition n/a
subroutine 6 7 85.7
pod 0 3 0.0
total 24 29 82.7


line stmt bran cond sub pod time code
1             package Crypt::OpenPGP::Trust;
2 5     5   44 use strict;
  5         14  
  5         325  
3 5     5   34 use warnings;
  5         11  
  5         541  
4              
5             our $VERSION = '1.19'; # VERSION
6              
7 5     5   39 use Crypt::OpenPGP::ErrorHandler;
  5         10  
  5         187  
8 5     5   47 use base qw( Crypt::OpenPGP::ErrorHandler );
  5         11  
  5         1644  
9              
10 45     45 0 163 sub new { bless { }, $_[0] }
11 0     0 0 0 sub flags { $_[0]->{flags} }
12             sub parse {
13 45     45 0 102 my $class = shift;
14 45         166 my($buf) = @_;
15 45         218 my $trust = $class->new;
16 45         177 $trust->{flags} = $buf->get_int8;
17 45         984 $trust;
18             }
19              
20             1;
21             __END__