File Coverage

blib/lib/MIDI/Stream/Event/SongSelect.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 11 11 100.0


line stmt bran cond sub pod time code
1 13     13   162 use v5.26;
  13         53  
2 13     13   74 use warnings;
  13         72  
  13         670  
3 13     13   78 use Feature::Compat::Class;
  13         42  
  13         112  
4              
5             # ABSTRACT: Song Select event class
6              
7              
8             package MIDI::Stream::Event::SongSelect;
9             class MIDI::Stream::Event::SongSelect :isa( MIDI::Stream::Event );
10              
11             our $VERSION = '0.005';
12              
13              
14             field $song :reader;
15              
16             ADJUST {
17             $song = $self->message->[1];
18             }
19              
20             1;
21              
22             __END__