File Coverage

blib/lib/XML/SRS/Keyring.pm
Criterion Covered Total %
statement 2 4 50.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 4 6 66.6


line stmt bran cond sub pod time code
1              
2             package XML::SRS::Keyring;
3             BEGIN {
4 1     1   5112 $XML::SRS::Keyring::VERSION = '0.09';
5             }
6              
7 1     1   444 use Moose;
  0            
  0            
8             use PRANG::Graph;
9             use Moose::Util::TypeConstraints;
10              
11             subtype 'XML::SRS::PGP::PubKey'
12             => as "Str"
13             => where {
14             m{\A-----BEGIN PGP PUBLIC KEY} &&
15             m{-----END PGP PUBLIC KEY.*\Z};
16             };
17              
18             has_element 'keys' =>
19             is => "rw",
20             isa => "ArrayRef[Str]",
21             xml_nodeName => "EncryptKey",
22             ;
23              
24             with 'XML::SRS::Node';
25              
26             1;