rjbs

    11 Devel-ebug
    11 Device-WebIO
    11 Dist-Zilla-Plugin-AssertOS
    11 Dist-Zilla-Plugin-ChangelogFromGit
    11 Dist-Zilla-Plugin-CheckIssues
    11 Dist-Zilla-Plugin-Prepender
    11 Dist-Zilla-Plugin-SchwartzRatio
    11 Dist-Zilla-Plugin-StaticVersion
    11 Dist-Zilla-Role-MetaCPANInterfacer
    11 Dist-Zilla-Stash-PodWeaver

rjbs

203263 ExtUtils::MakeMaker
173535 Test::Simple
120299 Cwd
77311 List::Util
68507 Carp
59047 File::Temp
49478 Exporter
37483 Data::Dumper
36013 IO
35946 Encode

rjbs

2009-01    0    6    0 [   913] ()
2009-02    5    3    0 [   714] ()
2009-03    0    6    0 [   812] ()
2009-04    1    0    0 [   606] ()
2009-05    3    8    0 [   809] ()
2009-06    4    0    0 [  1126] ()
2009-07   10    4    0 [  1367] ()
2009-08   14    6    0 [  1183] ()
2009-09    9    0    0 [   790] ()
2009-10  107    5    0 [  1628] (jesse)

rjbs

my $client = Fastmail::Client->....;

my $mbox_res = $client->request([
  [ 'Mailbox/get', { accountId => ... } ],
]);

# Get all the mailbox objects:
my @boxes = $mbox_res->single_sentence('Mailbox/get')->arguments->{list}->@*;

rjbs

Perl Rules of Governance

Preamble

We are forming a system of governance for development of the Perl programming language.

The scope of governance includes the language definition, its implementation, its test suite, its documentation, and the policies and procedures by which it is developed and maintained.

rjbs

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

use autodie;
use JSON::PP;
use Tie::IxHash;

open my $fh, '<', ($ARGV[0] || '.git/index');

rjbs

  -i=2   # standard indent
  -ce    # cuddly elses
  -pt=2  # parentheses should be tight
  -nsfs  # no space before "for" loop semicolon
  -nolq  # don't outdent long quotes
  -b     # edit file in place, leave .bak file
  -nola  # don't outdent labels
  -msc=1 # two spaces for post-line comments (not 4)

  -bom   # keep old breaks before method calls

rjbs

use v5.20.0;

use Term::ReadKey ();

sub terminal_bg_info {
  syswrite *STDOUT, "\e]11;?\007";

  # Example response:
  # ^[]11;rgb:00/00/00^G^[]11;rgb:00/00/00^G
  #

rjbs

use v5.20.0;
use warnings;

use IO::Async;
use IO::Async::Timer::Periodic;
use Tickit::Async;
use Tickit::Widget::Static;
use Tickit::Widget::GridBox;
use List::MoreUtils qw(natatime);

rjbs

use v5.20.0;

package CliM8::LoopControl::Continue {
  use Moo;
  sub throw { die $_[0]; }
  no Moo;
}

package CliM8::LoopControl::Pop {
  use Moo;