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

$ 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

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

# Module::Faker should prepend 3 lines above this

=head1 NAME

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

=head1 SYNOPSIS

  use warnings;
  print <DATA>;

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