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; |