rwstauner

== disasm: #<ISeq:<internal:jit_hook>@<internal:jit_hook>:1 (1,0)-(13,3)>
0000 putspecialobject                       3                         (   1)[Li]
0002 putnil
0003 defineclass                            :Module, <class:Module>, 0
0007 leave

== disasm: #<ISeq:<class:Module>@<internal:jit_hook>:1 (1,0)-(13,3)>
0000 putself                                                          (   4)[LiCl]
0001 definemethod                           :with_jit, with_jit
0004 putobject                              :with_jit

rwstauner

This works with undo files having "version 3".

usage: nvim_undo_viewer.py [-h] [--original ORIGINAL] [--seq SEQ] [--last]
                           [--all] [--tree] [--debug]
                           undofile

View Neovim undo file contents

positional arguments:

rwstauner

h = { a: 0 }
n = 1000
threads = (1..n).flat_map do |i|
  [
    Thread.new { h["i#{i}"] = 1 },
    Thread.new { h.delete("i#{i}") },
  ]
end.map(&:join)
puts h.inspect

rwstauner

# Module::Faker should prepend 3 lines above this

=head1 NAME

Pod::With::Data::Token - yo

=head1 SYNOPSIS

  use warnings;
  print <DATA>;

rwstauner

perl -e ' print "hi\n\n=F\0?}\302\240\0?}\302\200\n\nyo\n" '| perl -0777 -M'5; sub Pod::Simple::DEBUG { 10 }' -MPod::Text -ne ' my $parser = Pod::Text->new( code => 0, alt => 1, sentence => 0, width => 78 ); $parser->no_errata_section(1);  $parser->parse_string_document($_) '

rwstauner

$ cpangrep '=head1\s{2,}NAME\b'
147 results in 23 files.  Showing first 23 results.

BLX/XSDSQL_20130411/xsdsql/lib/blx/xsdsql/connection.pm
130:
131:=head1  NAME

→ 115 more files matched in XSDSQL_20130411.

CPANEL/cPanel-TaskQueue-0.606/lib/cPanel/TaskQueue.pod

rwstauner

curl api.metacpan.org/file/_search -d '{ "filter": {"and":[ {"missing": {"field": "documentation"}}, {"exists": {"field": "file.module.name"}}, {"exists": {"field": "description"}}, {"term": {"mime": "text/x-script.perl-module"}}, {"term": {"status": "latest"}} ]}, "fields": ["distribution", "path", "file.module.name", "date"], "size":1140, "sort": [{"date":"desc"}] }' > unnamed-pod.json

rwstauner

#!/usr/bin/env perl
# Originally from http://github.com/cpan-api/cpan-api (5c280d86fb0db818bedefdc46ee1d2c6276a01e4).
# PODNAME: check_prereqs.pl

# TODO: this stuff should be in other modules somewhere

use strict;
use warnings;
use Perl::PrereqScanner 1.014;
use CPAN::Meta::Requirements;

rwstauner

*$ perl -MData::Dumper -e 'use Dist::Zilla::Config::BundleInspector;
print Dist::Zilla::Config::BundleInspector->new(
  bundle_class => "Dist::Zilla::PluginBundle::RJBS"
)->ini_string'

[Git::GatherDir]
[CheckPrereqsIndexed]
[CheckExtraTests]

[@Filter]

rwstauner

http://explorer.metacpan.org/?url=%2Ffile%2F_search&content={%0D%0A++%22query%22+%3A+{+%22match_all%22+%3A+{}+}%2C%0D%0A++%22fields%22+%3A+[+%22release%22%2C+%22name%22%2C+%22author%22+]%2C%0D%0A++%22filter%22+%3A+{%0D%0A++++%22and%22+%3A+[%0D%0A++++++{+%22term%22+%3A+{+%22level%22+%3A+0+}+}%2C%0D%0A++++++{+%22term%22+%3A+{+%22status%22+%3A+%22latest%22+}+}%2C%0D%0A++++++{%0D%0A++++++++%22or%22+%3A+[%0D%0A++++++++++++{+%22term%22+%3A+{+%22name%22+%3A+%22MYMETA.yml%22+}+}%2C%0D%0A++++++++++++{+%22term%22+%3A+{+%22name%22+%3A+%22MYMETA.json%22+}+}%0D%0A++++++++]%0D%0A++++++}%0D%0A++++]%0D%0A++}%2C%0D%0A++%22size%22%3A+1000%0D%0A}%0D%0A