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