File Coverage

blib/lib/Crypt/OpenPGP/Key/Public.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 2 3 66.6
total 28 29 96.5


line stmt bran cond sub pod time code
1             package Crypt::OpenPGP::Key::Public;
2 9     9   69 use strict;
  9         21  
  9         417  
3 9     9   62 use warnings;
  9         21  
  9         965  
4              
5             our $VERSION = '1.19'; # VERSION
6              
7 9     9   5659 use Crypt::OpenPGP::Key;
  9         33  
  9         354  
8 9     9   74 use Crypt::OpenPGP::ErrorHandler;
  9         17  
  9         236  
9 9     9   41 use base qw( Crypt::OpenPGP::Key Crypt::OpenPGP::ErrorHandler );
  9         17  
  9         2007  
10              
11 159     159 0 1023 sub all_props { $_[0]->public_props }
12 17     17 1 113 sub is_secret { 0 }
13 21     21 1 89 sub public_key { $_[0] }
14              
15             1;