File Coverage

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