File Coverage

blib/lib/MIDI/Stream/Event/SysEx.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   181 use v5.26;
  13         53  
2 13     13   73 use warnings;
  13         24  
  13         692  
3 13     13   75 use Feature::Compat::Class;
  13         23  
  13         86  
4              
5             # ABSTRACT: SysEx event class
6              
7             package MIDI::Stream::Event::SysEx;
8             class MIDI::Stream::Event::SysEx :isa( MIDI::Stream::Event );
9              
10              
11             our $VERSION = '0.005';
12              
13              
14             field $msg_str;
15             field $msg :reader = [];
16              
17             method msg_str {
18             $msg_str //= join '', map { chr } $msg->@*;
19             }
20              
21             ADJUST {
22             ( undef, $msg->@* ) = $self->message->@*;
23             delete $msg->[ -1 ] if $msg->[ -1 ] == 0xf7;
24             }
25              
26             1;
27              
28             __END__