File Coverage

blib/lib/MIDI/Drummer/Tiny/Types.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	28	28	100.0

package MIDI::Drummer::Tiny::Types;
$MIDI::Drummer::Tiny::Types::VERSION = '0.7001';
our $AUTHORITY = 'cpan:GENE';

# ABSTRACT: Type library for MIDI::Drummer::Tiny

use strict;
use warnings;

use Type::Library
    -extends => [ qw(
        Types::MIDI
        Types::Music
        Types::Common::String
    ) ],
    -declare => qw(
        Duration
        MIDI_File
        Soundfont_File
    );
use Type::Utils -all;
use Types::Standard   qw(FileHandle);
use Types::Path::Tiny qw(File Path);

use MIDI::Util qw(midi_dump);

#pod =type Duration
#pod
#pod A L corresponding to
#pod a L.
#pod
#pod =cut

my %length = %{ midi_dump('length') };
declare Duration, as NonEmptyStr, where { exists $length{$_} };

#pod =type MIDI_File
#pod
#pod The name of the MIDI file to be written.
#pod
#pod =cut

declare MIDI_File, as NonEmptyStr | Path | FileHandle;

#pod =type Soundfont_File
#pod
#pod The name of the MIDI soundfont file to use.
#pod
#pod =cut

declare Soundfont_File, as NonEmptyStr | File;

1;

__END__