view release on metacpan or  search on metacpan

t/vov.t  view on Meta::CPAN

};
command {
    args   => [qw(I+)],
    stdout => "c e gis\n",
};
command {
    args   => [qw(i*)],
    stdout => "c dis fis\n",
};

# XXX think about what I* would mean...major 3rd but dim 5th? or throw
# exception for unknown chord?

done_testing 84