File Coverage

blib/lib/Crypt/OpenPGP/Key/Public.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 2 3 66.6
total 24 25 96.0


line stmt bran cond sub pod time code
1             package Crypt::OpenPGP::Key::Public;
2 4     4   23 use strict;
  4         8  
  4         154  
3              
4 4     4   2720 use Crypt::OpenPGP::Key;
  4         11  
  4         125  
5 4     4   26 use Crypt::OpenPGP::ErrorHandler;
  4         8  
  4         122  
6 4     4   22 use base qw( Crypt::OpenPGP::Key Crypt::OpenPGP::ErrorHandler );
  4         8  
  4         610  
7              
8 99     99 0 539 sub all_props { $_[0]->public_props }
9 17     17 1 99 sub is_secret { 0 }
10 21     21 1 69 sub public_key { $_[0] }
11              
12             1;