ology

Tick 0
Tick 1
Can't use an undefined value as a subroutine reference at /Users/gene/perl5/perlbrew/perls/perl-5.38.0/lib/site_perl/5.38.0/IO/Async/Channel.pm line 533.
	(in cleanup) Can't call method "ok" on an undefined value at /Users/gene/perl5/perlbrew/perls/perl-5.38.0/lib/site_perl/5.38.0/MIDI/RtMidi/FFI/Device.pm line 203 during global destruction.

shell returned 255

ology

cpanm (App::cpanminus) 1.7047 on perl 5.038000 built for darwin-2level
Work directory is /Users/gene/.cpanm/work/1740077374.80202
You have make /usr/bin/make
You have LWP 6.72
You have /usr/bin/tar: bsdtar 3.5.3 - libarchive 3.5.3 zlib/1.2.12 liblzma/5.4.3 bz2lib/1.0.8
You have /usr/bin/unzip
Searching Future::IO () on cpanmetadb ...
--> Working on Future::IO
Fetching http://www.cpan.org/authors/id/P/PE/PEVANS/Future-IO-0.16.tar.gz
-> OK

ology

#!/usr/bin/env perl

use v5.36;

use Data::Dumper::Compact qw(ddc);
use IO::Async::Timer::Periodic;
use IO::Async::Routine;
use IO::Async::Channel;
use IO::Async::Loop;
use Future::AsyncAwait;

ology

> perl -MTime::Hires=usleep -E'say "Hello"; usleep(1000); say "there."'
Hello
Undefined subroutine &main::usleep called at -e line 1.

ology

#!/usr/bin/env perl
use strict;
use warnings;

use Data::Dumper::Compact qw(ddc);
use MIDI::RtMidi::FFI::Device ();

my $midi_in  = RtMidiIn->new;
$midi_in->open_port_by_name(qr/tempopad/i);

ology

cpanm (App::cpanminus) 1.7047 on perl 5.040000 built for x86_64-linux
Work directory is /home/gene/.cpanm/work/1737741557.397385
You have make /usr/bin/make
You have LWP 6.77
You have /usr/bin/tar: tar (GNU tar) 1.35
Copyright (C) 2023 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <https://gnu.org/licenses/gpl.html>.
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.

ology

# $d->metronome44($d->bars, $d->ride2, $d->quarter, 67)
sub metronome44 {
    my $self = shift;
    my $bars = shift || $self->bars;
    my $cymbal = shift || $self->ride1;
    my $tempo = shift || $self->quarter;
    my $swing = shift || 50; # percent
    my $x = dura_size($tempo) * TICKS;
    my $y = sprintf '%0.f', ($swing / 100) * $x;
    my $z = $x - $y;

ology

Use of uninitialized value $file in concatenation (.) or string at .../upload.pl line 96.
Mojo::Server::Sandbox::d51d682e78b961e143b7ed5b80fccaf5 L96
[2025-01-18 09:45:41.85818] [31751] [error] [TA0Dg0GidrV3] Can't call method "size" on an undefined value at .../upload.pl line 102.

ology

> perl primes/date-primes.pl 2024

Prime dates: {
  '2024' => {
    '01' => [ 20240107 ],
    '02' => [ 20240219 ],
    '03' => [ 20240323, 20240327 ],
    '04' => [ 20240411, 20240419 ],
    '05' => [ 20240531 ],
    '06' => [ 20240603, 20240611 ],

ology

#!/usr/bin/env perl
use strict;
use warnings;

use Getopt::Long qw(GetOptions);
use MIDI::RtMidi::FFI::Device ();
use Time::HiRes qw(usleep);

my %opt = (
    virtual => 'foo',