File Coverage

blib/lib/MIDI/Stream/Event/ControlChange.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1 13     13   164 use v5.26;
  13         48  
2 13     13   69 use warnings;
  13         26  
  13         738  
3 13     13   81 use Feature::Compat::Class;
  13         26  
  13         131  
4              
5             # ABSTRACT: Control Change event class
6              
7              
8             package MIDI::Stream::Event::ControlChange;
9             class MIDI::Stream::Event::ControlChange :isa( MIDI::Stream::Event::Channel );
10              
11             our $VERSION = '0.005';
12              
13 13     13   3216 use MIDI::Stream::Tables qw/ combine_bytes /;
  13         44  
  13         3076  
14              
15              
16             field $control :reader;
17             field $value :reader;
18              
19             ADJUST {
20             $control = $self->message->[ 1 ];
21             $value = $self->message->[ 2 ];
22             }
23              
24             1;
25              
26             __END__