ology

Mr Boggs,

As you well know, and can verify with the following link, 

https://metacpan.org/dist/MIDI-Praxis-Variation

as it’s undisputed author, I am the copyright holder on this software. 
You will immediately remove your false claim, arrogating copyright unto yourself, 
that appears in the latest versions where you are named as maintainer. 
You will furthermore stop pilfering bits of it, calling them your own,  

ology

app->minion->add_task(reencode_audio => sub ($job, @args) {                                                                                                                  
  my $track = Mojo::File->new($args[0]);
  my $path = eval { $track->realpath };
  $job->app->log->debug($track, 'to', $path);
  (my $outfile = $path) =~ s/^(.+?)\.\w+$/$1.mp3/;
  my @cmd = (qw(ffmpeg -i), qq/"$path"/, qw(-c:v copy -c:a libmp3lame -q:a 4), qq/"$outfile"/);
  $job->app->log->debug("@cmd");
#  if(system(@cmd) == 0) {
#    $job->app->log->debug($track, 're-encoded');
#  }

ology

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

use MIDI::Drummer::Tiny;
use MIDI::Chord::Guitar;
use MIDI::Praxis::Variation qw(tie_durations);
use MIDI::Util qw(set_chan_patch);

my $d = MIDI::Drummer::Tiny->new(

ology

http://ology.net/tmp/shire.bmp

ology

#!/usr/bin/env perl

# https://github.com/mojolicious/mojo/wiki/Writing-websocket-chat-using-Mojolicious-Lite
# +
# http://blogs.perl.org/users/joel_berger/2012/10/a-websocket-mojoliciousdbi-example.html

use Mojolicious::Lite;
use Mojo::JSON qw(decode_json encode_json);

# Connected websocket clients

ology

git log --author="Your Name" --date=iso | perl -nalE 'if (/^Date:\s+[\d-]{10}\s(\d{2})/) { say $1+0 }' | sort | uniq -c|perl -MList::Util=max,sum0 -nalE '$h{$F[1]} = $F[0]; }{ $m = max values %h; for (0..23) { $h{$_} = 0 if not exists $h{$_} } for (sort {$a <=> $b } keys %h) { say sprintf "%02d - %4d %s", $_, $h{$_}, "*" x ($h{$_} / $m * 50); } say sum0(values %h), " commits"'

ology

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

use DBI;
use Test::mysqld;
use Test::More;

my $mysqld = Test::mysqld->new(
    my_cnf => {