File Coverage

blib/lib/Device/MindWave/Packet/Dongle/StandbyMode.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 5 5 100.0
total 31 31 100.0


line stmt bran cond sub pod time code
1             package Device::MindWave::Packet::Dongle::StandbyMode;
2              
3 5     5   24234 use strict;
  5         10  
  5         169  
4 5     5   25 use warnings;
  5         7  
  5         132  
5              
6 5     5   25 use base qw(Device::MindWave::Packet::Dongle);
  5         6  
  5         1533  
7              
8             sub new
9             {
10 35     35 1 13915 my ($class) = @_;
11 35         66 my $self = {};
12 35         107 bless $self, $class;
13 35         208 return $self;
14             }
15              
16             sub code
17             {
18 1     1 1 400 return 0xD4;
19             }
20              
21             sub as_bytes
22             {
23 18     18 1 26 my ($self) = @_;
24              
25 18         63 return [ 0xD4, 0x01, 0x00 ];
26             }
27              
28             sub length
29             {
30 1     1 1 3 return 3;
31             }
32              
33             sub as_string
34             {
35 1     1 1 362 return "Standby";
36             }
37              
38             1;
39              
40             __END__