#!/usr/bin/env perl
#
# Show scales with 12 pitches.

use strict;
use warnings;
use feature qw/say/;

use Music::Scala ();
my $s = Music::Scala->new;

for my $file ( glob('*.scl') ) {
    eval { say $file if $s->read_scala($file)->get_notes == 12 };
    warn "could not parse '$file': $@" if $@;
}
