File Coverage

blib/lib/MIDI/Stream/Event/Channel.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   175 use v5.26;
  13         75  
2 13     13   67 use warnings;
  13         27  
  13         751  
3 13     13   67 use Feature::Compat::Class;
  13         19  
  13         134  
4              
5             # ABSTRACT: MIDI channel event base class
6             #
7              
8             package MIDI::Stream::Event::Channel;
9 13     13   8595 class MIDI::Stream::Event::Channel :isa( MIDI::Stream::Event );
  13         37  
  13         1930  
10              
11             our $VERSION = '0.005';
12              
13              
14             field $channel :reader;
15              
16             ADJUST {
17             $channel = $self->message->[0] & 0x0f;
18             }
19              
20             1;
21              
22             __END__