File Coverage

blib/lib/MIDI/RtController/Filter.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package MIDI::RtController::Filter;
our $AUTHORITY = 'cpan:GENE';

# ABSTRACT: Parent class of RtController filters

our $VERSION = '0.0102';

use Moo;
use strictures 2;
use Types::Standard qw(Bool Maybe);
use Types::MIDI qw(Channel Velocity);
use namespace::clean;


has rtc => (
    is  => 'ro',
    isa => sub { die 'Invalid controller' unless ref($_[0]) eq 'MIDI::RtController' },
);


has channel => (
    is      => 'rw',
    isa     => Channel,
    default => sub { 0 },
);


has value => (
    is      => 'rw',
    isa     => Maybe[Velocity],
    default => sub { undef },
);


has trigger => (
    is      => 'rw',
    isa     => Maybe[Velocity],
    default => sub { undef },
);


has running => (
    is      => 'rw',
    isa     => Bool,
    default => 0,
);


has halt => (
    is      => 'rw',
    isa     => Bool,
    default => 0,
);


has continue => (
    is      => 'rw',
    isa     => Bool,
    default => 0,
);


has verbose => (
    is      => 'rw',
    isa     => Bool,
    default => sub { 0 },
);

1;

__END__