File Coverage

blib/lib/MIDI/Stream/Event/Note.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   168 use v5.26;
  13         41  
2 13     13   65 use warnings;
  13         22  
  13         620  
3 13     13   64 use Feature::Compat::Class;
  13         25  
  13         109  
4              
5             # ABSTRACT: Note event class
6              
7              
8             package MIDI::Stream::Event::Note;
9 13     13   8520 class MIDI::Stream::Event::Note :isa( MIDI::Stream::Event::Channel );
  13         36  
  13         2883  
10              
11             our $VERSION = '0.005';
12              
13              
14             field $note :reader;
15             field $velocity :reader;
16              
17             ADJUST {
18             $note = $self->message->[1];
19             $velocity = $self->message->[2];
20             }
21              
22             1;
23              
24             __END__