view release on metacpan or  search on metacpan

bin/atonal-util  view on Meta::CPAN

$modes{$mode}->(@ARGV);
exit 0;

########################################################################
#
# SUBROUTINES

# TODO move back to List::MoreUtils if that module is fixed up or some
# replacement with fewer open critical bugs is written.
sub all(&@) {
    my $test = shift;
    for (@_) {
        return 0 unless &$test;
    }
    return 1;
}

sub _ms2abbr_time {
    my $difference = int shift;