File Coverage

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


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