File Coverage

blib/lib/UAV/Pilot/ArdupilotProtocol/Packet/RequestStartupMessage.pm
Criterion Covered Total %
statement 4 6 66.6
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 6 8 75.0


line stmt bran cond sub pod time code
1             # Copyright (c) 2014 Timm Murray
2             # All rights reserved.
3             #
4             # Redistribution and use in source and binary forms, with or without
5             # modification, are permitted provided that the following conditions are met:
6             #
7             # * Redistributions of source code must retain the above copyright notice,
8             # this list of conditions and the following disclaimer.
9             # * Redistributions in binary form must reproduce the above copyright
10             # notice, this list of conditions and the following disclaimer in the
11             # documentation and/or other materials provided with the distribution.
12             #
13             # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
14             # AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
15             # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
16             # ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
17             # LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
18             # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
19             # SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
20             # INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
21             # CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
22             # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
23             # POSSIBILITY OF SUCH DAMAGE.
24             package UAV::Pilot::ArdupilotProtocol::Packet::RequestStartupMessage;
25 1     1   1523 use v5.14;
  1         5  
  1         39  
26 1     1   379 use Moose;
  0            
  0            
27             use namespace::autoclean;
28              
29              
30             use constant {
31             payload_length => 2,
32             message_id => 0x07,
33             payload_fields => [qw{
34             system_type
35             system_id
36             }],
37             payload_fields_length => {
38             system_type => 1,
39             system_id => 1,
40             },
41             };
42              
43              
44             has 'system_type' => (
45             is => 'rw',
46             isa => 'Int',
47             );
48             has 'system_id' => (
49             is => 'rw',
50             isa => 'Int',
51             );
52              
53             with 'UAV::Pilot::ArdupilotProtocol::Packet';
54              
55              
56             no Moose;
57             __PACKAGE__->meta->make_immutable;
58             1;
59             __END__