View input.pl
# Module::Faker should prepend 3 lines above this
=head1 NAME
Pod::With::Data::Token - yo
=head1 SYNOPSIS
use warnings;
print <DATA>;
View command.sh
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($_) '
View cpangrep.txt
$ 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
View curl.sh
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
View check_prereqs.pl
#!/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;
View gist:5678576
*$ 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]
View alienbuild.pm
package inc::AlienBuild;
use Moose;
extends 'Dist::Zilla::Plugin::ModuleBuild';
with 'Dist::Zilla::Role::FileGatherer';
sub gather_files {
my ($self) = @_;
my $file = $self->zilla->main_module->name;
View req
*$ perl -MJSON -Mojo -e '$j = j(p( $ARGV[1], $ARGV[0] )->body); @f = map { $_->{fields} } @{ $j->{hits}{hits} }; print @f ? JSON->new->utf8->pretty->encode([@f, {total => $j->{hits}{total}}]) : $j' '{"query":{"match_all":{}}, "filter":{"and":[ {"term":{"module.indexed":true}}, {"term":{"status":"latest"}}, {"not": {"or": [{"prefix":{"path":"lib/"}}, {"term":{"level":0}}] } }]}, "fields":["release", "module.name", "path"],"size":50}' "https://api.metacpan.org/module/_search"
[
{
"module.name" : "XML::Pastor::Test::Type::Country_name",
"path" : "test/out/lib/XML/Pastor/Test/Type/Country_name.pm",
"release" : "XML-Pastor-1.0.4"
},
{
"module.name" : "XML::Pastor::Test::Type::Country",
"path" : "test/out/lib/XML/Pastor/Test/Type/Country.pm",