Initial commit

ology · Nov 27, 2020 · 441fd48 · 441fd48
1 parent 9e67508
commit 441fd48
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/ex-06-02.pl b/ex-06-02.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use MIDI::Drummer::Tiny;
+
+my $d = MIDI::Drummer::Tiny->new;
+
+$d->count_in(4);  # Closed hi-hat for 4 bars
+
+$d->write;