Skip to content

Instantly share code, notes, and snippets.

View rjbs's full-sized avatar
🤝
here to help

Ricardo Signes rjbs

🤝
here to help
View GitHub Profile
cpanm (App::cpanminus) 1.7044 on perl 5.034000 built for darwin-2level
Work directory is /Users/rjbs/.cpanm/work/1622558772.78238
You have make /usr/bin/make
You have LWP 6.54
You have /usr/bin/tar: bsdtar 3.3.2 - libarchive 3.3.2 zlib/1.2.11 liblzma/5.0.5 bz2lib/1.0.6
You have /usr/bin/unzip
Searching Test2::Harness () on cpanmetadb ...
--> Working on Test2::Harness
Fetching http://www.cpan.org/authors/id/E/EX/EXODIST/Test2-Harness-1.000056.tar.gz
-> OK
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
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
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)
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}->@*;

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.

#!/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');
-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
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
#
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);