view release on metacpan or  search on metacpan

lib/ByteBeat.pm  view on Meta::CPAN

        }
    }

    for (my $t = 1; $t <= $length; $t++) {
        print chr ($function->run($t) % 256);
    }
}

sub get_options {
    my ($self) = shift;
    local @ARGV = @{$self->args};
    GetOptions(
        'file=s' => \$file,
        'length=s' => \$length,
        'debug' => \$debug,
        'shell' => \$shell,
        'play' => \$play,
    );
    $length =
        $length =~ /^(\d+)s$/ ? $1 * $second :
        $length =~ /^(\d+)m$/ ? $1 * $second * 60 :