Add $bpm var

ology · Jan 19, 2022 · 761fa12 · 761fa12
1 parent 96a4250
commit 761fa12
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/ex-03-02.pl b/ex-03-02.pl
@@ -4,7 +4,9 @@
 
 use MIDI::Util qw(setup_score set_chan_patch);
 
-my $score = setup_score(bpm => 120);
+my $bpm = shift || 120;
+
+my $score = setup_score(bpm => $bpm);
 
 $score->synch(\&bass, \&treble);