view release on metacpan or  search on metacpan

eg/nrt-study-setclass  view on Meta::CPAN

warn 'info: set class ', ps2str($pitch_set), ' consists of { ',
  join( ', ', map ps2str($_), keys %consists ), " }\n";

$Flag_Invary_Count //= 2;    # as both 3-11 and 4-27 operations use this
if ( $Flag_Invary_Count >= @$pitch_set ) {
  # well, you could, but the results would be unedifying
  die "error: cannot invary $Flag_Invary_Count elements in a ",
    scalar(@$pitch_set), " element set class\n";
}

# In hindsight these could be set with the -G flag to neato or whatnot
say <<"GRAPHVIZ_HEADER";
graph links {
  size="32,32";
  ratio="fill";
  splines=polyline;

GRAPHVIZ_HEADER

my %seen;
for my $pset ( keys %variations ) {