File Coverage

blib/lib/XML/SRS/Message.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::Message;
3             BEGIN {
4 1     1   2489 $XML::SRS::Message::VERSION = '0.09';
5             }
6              
7             # response to a GetMessages QueueMode=1
8              
9 1     1   547 use Moose;
  0            
  0            
10             use PRANG::Graph;
11              
12             has_attr 'unacked' =>
13             is => "rw",
14             isa => "Int",
15             required => 0,
16             xml_name => "Remaining",
17             ;
18              
19             has_element 'result' =>
20             is => "rw",
21             isa => "XML::SRS::Result",
22             xml_nodeName => "Response",
23             required => 1,
24             ;
25              
26             sub root_element {"Message"}
27             with 'XML::SRS::ActionResponse', 'XML::SRS::Node';
28              
29             1;