File Coverage

blib/lib/MIDI/Stream/Event/TimeCode.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   197 use v5.26;
  13         52  
2 13     13   72 use warnings;
  13         25  
  13         637  
3 13     13   72 use Feature::Compat::Class;
  13         23  
  13         85  
4              
5             # ABSTRACT: Time Code Qtr. Frame event class
6              
7              
8             package MIDI::Stream::Event::TimeCode;
9             class MIDI::Stream::Event::TimeCode :isa( MIDI::Stream::Event );
10              
11             our $VERSION = '0.005';
12              
13              
14             field $byte :reader;
15             field $high;
16             field $low;
17              
18             method high {
19             $high //= $byte & 0xf0 >> 5;
20             }
21              
22             method low {
23             $low //= $byte & 0x0f;
24             }
25              
26             ADJUST {
27             $byte = $self->message->[ 1 ];
28             }
29              
30             1;
31              
32             __END__