view release on metacpan or search on metacpan
script/_genpw-base58 view on Meta::CPAN
YAML/Old/Error.pm,370614,5985,83;12086
YAML/Old/Loader.pm,376626,22219,84;12277
YAML/Old/Loader/Base.pm,398877,1235,85;12989
YAML/Old/Marshall.pm,400141,934,86;13026
YAML/Old/Mo.pm,401098,3050,87;13073
YAML/Old/Node.pm,404173,4409,88;13144
YAML/Old/Tag.pm,408606,240,89;13359
YAML/Old/Types.pm,408872,5904,90;13378
### Clone/PP.pm ###
#package Clone::PP;
view release on metacpan or search on metacpan
script/_genpw-base64 view on Meta::CPAN
Mo/coerce.pm,212602,330,50;7294
Mo/default.pm,212954,435,51;7298
Mo/exporter.pm,213412,176,52;7302
Mo/import.pm,213609,185,53;7306
Mo/importer.pm,213817,207,54;7310
Mo/is.pm,214041,228,55;7314
Mo/nonlazy.pm,214291,129,56;7318
Mo/option.pm,214441,259,57;7322
Mo/required.pm,214723,340,58;7326
Mo/xs.pm,215080,256,59;7330
Module/Installed/Tiny.pm,215369,3030,60;7334
view release on metacpan or search on metacpan
script/_genpw-id view on Meta::CPAN
Log/ger/Output/Null.pm,419446,1273,40;13943
Log/ger/Output/String.pm,420752,2305,41;14011
Log/ger/Plugin.pm,423083,2038,42;14116
Log/ger/Plugin/MultilevelLog.pm,425161,5006,43;14231
Log/ger/Util.pm,430191,10231,44;14410
Mo.pm,440436,591,45;14738
Mo/Golf.pm,441046,8174,46;14742
Mo/Inline.pm,449241,3471,47;14978
Mo/Moose.pm,452732,533,48;15119
Mo/Mouse.pm,453285,563,49;15124
Mo/build.pm,453868,248,50;15129
script/_genpw-id view on Meta::CPAN
#function will also fill the information in the C<logs> result metadata.
#
#Examples:
#
# err(); # => [500, "FUNC failed", undef, {...}];
# err(404); # => [404, "FUNC failed", undef, {...}];
# err(404, "Not found"); # => [404, "Not found", ...]
# err("Not found", 404); # => [404, "Not found", ...]; # order doesn't matter
# err([404, "Prev error"]); # => [500, "FUNC failed", undef,
# # {logs=>[...], prev=>[404, "Prev error"]}]
#
#Will put C<stack_trace> in logs only if C<Carp::Always> module is loaded.
#
#=head2 warn_err(...)
#
view release on metacpan or search on metacpan
script/_genpw-ind view on Meta::CPAN
#function will also fill the information in the C<logs> result metadata.
#
#Examples:
#
# err(); # => [500, "FUNC failed", undef, {...}];
# err(404); # => [404, "FUNC failed", undef, {...}];
# err(404, "Not found"); # => [404, "Not found", ...]
# err("Not found", 404); # => [404, "Not found", ...]; # order doesn't matter
# err([404, "Prev error"]); # => [500, "FUNC failed", undef,
# # {logs=>[...], prev=>[404, "Prev error"]}]
#
#Will put C<stack_trace> in logs only if C<Carp::Always> module is loaded.
#
#=head2 warn_err(...)
#
view release on metacpan or search on metacpan
share/lib/git-hub.d/git-hub-member view on Meta::CPAN
command:member-get() {
require-auth
get-args team_id user
api-get "/teams/$team_id/members/$user"
msg_ok="'$user' is of team (id) '$team_id'"
msg_404="'$user' is NOT a member of team (id) '$team_id'"
}
command:member-add() {
require-auth
get-args team_id user
view release on metacpan or search on metacpan
#
#=head1 BENCHMARKS
#
# [1..10]:
# Rate/s Precision/s Data::Dump Data::Dumper Data::Dmp
# Data::Dump 24404 95 -- -61.6% -75.6%
# Data::Dumper 63580 210 160.5+-1.3% -- -36.4%
# Data::Dmp 99940 130 309.5+-1.7% 57.18+-0.55% --
#
# [1..100]:
# Rate/s Precision/s Data::Dump Data::Dumper Data::Dmp
#function will also fill the information in the C<logs> result metadata.
#
#Examples:
#
# err(); # => [500, "FUNC failed", undef, {...}];
# err(404); # => [404, "FUNC failed", undef, {...}];
# err(404, "Not found"); # => [404, "Not found", ...]
# err("Not found", 404); # => [404, "Not found", ...]; # order doesn't matter
# err([404, "Prev error"]); # => [500, "FUNC failed", undef,
# # {logs=>[...], prev=>[404, "Prev error"]}]
#
#Will put C<stack_trace> in logs only if C<Carp::Always> module is loaded.
#
#=head2 warn_err(...)
#
view release on metacpan or search on metacpan
lib/App/html2wp.pm view on Meta::CPAN
my %args = @_;
my $dry_run = $args{-dry_run};
my $filename = $args{filename};
(-f $filename) or return [404, "No such file '$filename'"];
require File::Slurper;
my $html = File::Slurper::read_text($filename);
my $title;
view release on metacpan or search on metacpan
lib/App/htmlcat.pm view on Meta::CPAN
} elsif ($env->{PATH_INFO} eq '/js') {
return [ 200, [ 'Content-Type' => 'text/javascript' ], [ get_data_section('js') ] ];
} elsif ($env->{PATH_INFO} eq '/') {
return [ 200, [ 'Content-Type' => 'text/html; charset=utf-8' ], [ get_data_section('html') ] ];
} else {
return [ 404, [], [] ];
}
};
}
sub run {
view release on metacpan or search on metacpan
script/httpstatus view on Meta::CPAN
308 => 'Permanent Redirect', # RFC 7538
400 => 'Bad Request',
401 => 'Unauthorized',
402 => 'Payment Required',
403 => 'Forbidden',
404 => 'Not Found',
405 => 'Method Not Allowed',
406 => 'Not Acceptable',
407 => 'Proxy Authentication Required',
408 => 'Request Timeout',
409 => 'Conflict',
script/httpstatus view on Meta::CPAN
% httpstatus 4
400 Bad Request
401 Unauthorized
402 Payment Required
403 Forbidden
404 Not Found
405 Method Not Allowed
406 Not Acceptable
407 Proxy Authentication Required
408 Request Timeout
409 Conflict
script/httpstatus view on Meta::CPAN
% httpstatus 40
400 Bad Request
401 Unauthorized
402 Payment Required
403 Forbidden
404 Not Found
405 Method Not Allowed
406 Not Acceptable
407 Proxy Authentication Required
408 Request Timeout
409 Conflict
view release on metacpan or search on metacpan
307 => 'Temporary Redirect',
400 => 'Bad Request',
401 => 'Unauthorized',
402 => 'Payment Required',
403 => 'Forbidden',
404 => 'Not Found',
405 => 'Method Not Allowed',
406 => 'Not Acceptable',
407 => 'Proxy Authentication Required',
408 => 'Request Timeout',
409 => 'Conflict',
% httpstatus 4
400 Bad Request
401 Unauthorized
402 Payment Required
403 Forbidden
404 Not Found
405 Method Not Allowed
406 Not Acceptable
407 Proxy Authentication Required
408 Request Timeout
409 Conflict
% httpstatus 40
400 Bad Request
401 Unauthorized
402 Payment Required
403 Forbidden
404 Not Found
405 Method Not Allowed
406 Not Acceptable
407 Proxy Authentication Required
408 Request Timeout
409 Conflict
view release on metacpan or search on metacpan
lib/App/jl.pm view on Meta::CPAN
=head1 REPOSITORY
=begin html
<a href="https://github.com/bayashi/App-jl/blob/main/lib/App/jl.pm"><img src="https://img.shields.io/badge/Version-0.20-green?style=flat"></a> <a href="https://github.com/bayashi/App-jl/blob/main/LICENSE"><img src="https://img.shields.io/badge/LICENS...
=end html
App::jl is hosted on github: L<http://github.com/bayashi/App-jl>
view release on metacpan or search on metacpan
`message` is the HTTP status message, or a similar message such as "No entry
newer than 90 days." This is set when updating the feeds in your cache.
`message` is the HTTP status code; this code could be the real status code from
the server (such as 404 for a "not found" status) or one generated by Jupiter
such that it matches the status message (such as 206 for a "partial content"
status when there aren't any recent entries in the feed). This is set when
updating the feeds in your cache.
`title` is the site's title. When you update the feeds in your cache, it is
view release on metacpan or search on metacpan
t/132-delete-ref-refusal.t view on Meta::CPAN
subtest 'a refused delete is not the answer for a ref that was never there' => sub {
my $git = repo();
$git->write_ref( 'refs/karr/tasks/1/data', "one\n" );
is $git->delete_ref('refs/karr/tasks/404/data'), 0,
'nothing to delete is still a plain 0, not an exception';
my $before = App::karr::Git->pending_writes;
my $err = refusing( ['refs/karr/tasks/1/data'], sub {
local $@;
view release on metacpan or search on metacpan
lib/App/lcpan/Cmd/backpan_author.pm view on Meta::CPAN
my $envres = envresmulti();
for my $author (@{ $args{authors} }) {
my ($cpanid) = $dbh->selectrow_array(
"SELECT cpanid FROM author WHERE cpanid=?", {}, uc $author);
defined $cpanid or do {
$envres->add_result(404, "No such author '$author'");
next;
};
require Browser::Open;
my $c = substr($cpanid, 0, 1);
view release on metacpan or search on metacpan
lib/App/lcpan/Cmd/bugs_open.pm view on Meta::CPAN
# try mod
if (($file_id, $dist) = $dbh->selectrow_array("SELECT m.file_id, f.dist_name FROM module m JOIN file f ON m.file_id=f.id WHERE m.name=?", {}, $args{module_or_dist})) {
last;
}
}
$file_id or return [404, "No such module/dist '$args{module_or_dist}'"];
my $res = App::lcpan::Cmd::dist_meta::handle_cmd(%args, dist=>$dist);
return [412, $res->[1]] unless $res->[0] == 200;
my $meta = $res->[2];
view release on metacpan or search on metacpan
lib/App/lcpan/Cmd/changes_entry.pm view on Meta::CPAN
}
if ($releases{$version}) {
[200, "OK", $releases{$version}->serialize];
} else {
[404, "No entry for version $version in the Changes for $args{module_or_dist_or_script}"];
}
}
1;
# ABSTRACT: Show a single entry from a distribution/module's Changes file
view release on metacpan or search on metacpan
lib/App/lcpan/Cmd/cpanratings_get_reviews.pm view on Meta::CPAN
# try mod
if (($file_id, $dist, $cpanid, $version) = $dbh->selectrow_array("SELECT m.file_id, f.dist_name, f.cpanid, f.dist_version FROM module m JOIN file f ON m.file_id=f.id WHERE m.name=?", {}, $args{module_or_dist})) {
last;
}
}
$file_id or return [404, "No such module/dist '$args{module_or_dist}'"];
require WWW::CPANRatings;
my @reviews = WWW::CPANRatings->new->get_reviews($dist);
for (@reviews) {
delete $_->{dist_link};
view release on metacpan or search on metacpan
lib/App/lcpan/Cmd/cpantesters_author.pm view on Meta::CPAN
my $envres = envresmulti();
for my $author (@{ $args{authors} }) {
my ($cpanid) = $dbh->selectrow_array(
"SELECT cpanid FROM author WHERE cpanid=?", {}, uc $author);
defined $cpanid or do {
$envres->add_result(404, "No such author '$author'");
next;
};
require Browser::Open;
my $url = "http://matrix.cpantesters.org/?author=$cpanid";
view release on metacpan or search on metacpan
lib/App/lcpan/Cmd/cwalitee_of_module_abstract.pm view on Meta::CPAN
my $state = App::lcpan::_init(\%args, 'ro');
my $dbh = $state->{dbh};
my ($file_id, $abstract) = $dbh->selectrow_array(
"SELECT file_id, abstract FROM module WHERE name=?", {}, $args{module});
$file_id or return [404, "No such module '$args{module}'"];
log_info "Abstract is: %s", $abstract;
Module::Abstract::Cwalitee::calc_module_abstract_cwalitee(
abstract => $abstract,
module => $args{module},
view release on metacpan or search on metacpan
lib/App/lcpan/Cmd/gh_clone.pm view on Meta::CPAN
# try mod
if (($file_id, $dist) = $dbh->selectrow_array("SELECT m.file_id, f.dist_name FROM module m JOIN file f ON m.file_id=f.id WHERE m.name=?", {}, $args{module_or_dist})) {
last;
}
}
$file_id or return [404, "No such module/dist '$args{module_or_dist}'"];
my $res = App::lcpan::Cmd::dist_meta::handle_cmd(%args, dist=>$dist);
return [412, $res->[1]] unless $res->[0] == 200;
my $meta = $res->[2];
view release on metacpan or search on metacpan
lib/App/lcpan/Cmd/metacpan_author.pm view on Meta::CPAN
my $envres = envresmulti();
for my $author (@{ $args{authors} }) {
my ($cpanid) = $dbh->selectrow_array(
"SELECT cpanid FROM author WHERE cpanid=?", {}, uc $author);
defined $cpanid or do {
$envres->add_result(404, "No such author '$author'");
next;
};
require Browser::Open;
my $url = "https://metacpan.org/author/$cpanid";
view release on metacpan or search on metacpan
lib/App/lcpan/Cmd/namespace_authors.pm view on Meta::CPAN
my $state = App::lcpan::_init(\%args, 'ro');
my $dbh = $state->{dbh};
my $sth = $dbh->prepare("SELECT num_modules FROM namespace WHERE name=?");
$sth->execute($args{namespace});
my $row = $sth->fetchrow_arrayref or return [404, "No such namespace"];
my $num_modules = $row->[0];
return [200, "OK", []] unless $num_modules;
$sth = $dbh->prepare("SELECT cpanid AS author,COUNT(*) AS num_modules, 100.0*COUNT(*)/$num_modules AS pct_modules FROM module WHERE name LIKE '$args{namespace}\::%' GROUP BY cpanid ORDER BY num_modules DESC");
$sth->execute;
view release on metacpan or search on metacpan
lib/App/lcpan/Cmd/rt_open.pm view on Meta::CPAN
# try mod
if (($file_id, $dist, $cpanid, $version) = $dbh->selectrow_array("SELECT m.file_id, f.dist_name, f.cpanid, f.dist_version FROM module m JOIN file f ON m.file_id=f.id WHERE m.name=?", {}, $args{module_or_dist})) {
last;
}
}
$file_id or return [404, "No such module/dist '$args{module_or_dist}'"];
require Browser::Open;
my $err = Browser::Open::open_browser("https://rt.cpan.org/Public/Dist/Display.html?Name=$dist");
return [500, "Can't open browser"] if $err;
[200];
view release on metacpan or search on metacpan
lib/App/lcpan/Cmd/sco_author.pm view on Meta::CPAN
my $state = App::lcpan::_init(\%args, 'ro');
my $dbh = $state->{dbh};
my ($cpanid) = $dbh->selectrow_array(
"SELECT cpanid FROM author WHERE cpanid=?", {}, uc $author);
defined $cpanid or return [404, "No such author '$author'"];
require Browser::Open;
my $err = Browser::Open::open_browser("http://search.cpan.org/~$cpanid");
return [500, "Can't open browser"] if $err;
[200];
view release on metacpan or search on metacpan
lib/App/lcpan/Cmd/similar_authors_from_related_mods.pm view on Meta::CPAN
my $state = App::lcpan::_init(\%args, 'ro');
my $dbh = $state->{dbh};
my $author = $args{author};
my $author_rec = $dbh->selectrow_hashref("SELECT * FROM author WHERE cpanid=?", {}, $author)
or return [404, "No such author: $author"];
my $modules;
{
my $sth = $dbh->prepare("SELECT name FROM module WHERE cpanid=?");
$sth->execute($author);
view release on metacpan or search on metacpan
lib/App/lcpan/Cmd/changes.pm view on Meta::CPAN
push @file_ids, $e;
}
}
}
return [404, "No such module/dist/script"] unless @file_ids;
push @where, "file.id IN (".join(",", @file_ids).")";
}
my $sql = "SELECT
content.path content_path,
lib/App/lcpan/Cmd/changes.pm view on Meta::CPAN
"cmdline.page_result"=>1,
}];
}
if ($first_row) {
return [404, "No Changes file found in $first_row->{release}"];
} else {
return [404, "No such module or dist"];
}
}
1;
# ABSTRACT: Show Changes of distribution/module
view release on metacpan or search on metacpan
lib/App/MadEye/Plugin/Agent/Perlbal.pm view on Meta::CPAN
Timeout => $timeout,
) or return "cannot open socket";
$sock->write($req);
my $content = join '', <$sock>;
if ($content =~ m{Server: Perlbal.+<h1>404 - Not Found</h1>}s) {
return; # alive.
} else {
return "this is not a perlbal?\n\n$content";
}
}
view release on metacpan or search on metacpan
script/_metasyn view on Meta::CPAN
Log/ger/Filter.pm,392490,1155,31;13019
Log/ger/Filter/Code.pm,393676,1401,32;13085
Log/ger/Format.pm,395103,1299,33;13167
Log/ger/Format/Default.pm,396436,3305,34;13240
Log/ger/Format/MultilevelLog.pm,399781,5142,35;13358
Log/ger/Format/None.pm,404954,1275,36;13541
Log/ger/Heavy.pm,406254,18150,37;13608
Log/ger/Layout.pm,424430,1235,38;14009
Log/ger/Output.pm,425691,1364,39;14077
Log/ger/Output/Array.pm,427087,1591,40;14156
Log/ger/Output/Null.pm,428709,1279,41;14242
script/_metasyn view on Meta::CPAN
Mo/chain.pm,462595,216,53;15386
Mo/coerce.pm,462832,330,54;15390
Mo/default.pm,463184,435,55;15394
Mo/exporter.pm,463642,176,56;15398
Mo/import.pm,463839,185,57;15402
Mo/importer.pm,464047,207,58;15406
Mo/is.pm,464271,228,59;15410
Mo/nonlazy.pm,464521,129,60;15414
Mo/option.pm,464671,259,61;15418
Mo/required.pm,464953,340,62;15422
Mo/xs.pm,465310,256,63;15426
script/_metasyn view on Meta::CPAN
#function will also fill the information in the C<logs> result metadata.
#
#Examples:
#
# err(); # => [500, "FUNC failed", undef, {...}];
# err(404); # => [404, "FUNC failed", undef, {...}];
# err(404, "Not found"); # => [404, "Not found", ...]
# err("Not found", 404); # => [404, "Not found", ...]; # order doesn't matter
# err([404, "Prev error"]); # => [500, "FUNC failed", undef,
# # {logs=>[...], prev=>[404, "Prev error"]}]
#
#Will put C<stack_trace> in logs only if C<Carp::Always> module is loaded.
#
#=head2 warn_err(...)
#
view release on metacpan or search on metacpan
mimi.fatpack view on Meta::CPAN
$fatpacked{"DBD/Sponge.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_SPONGE';
use strict;{package DBD::Sponge;require DBI;require Carp;our@EXPORT=qw();our$VERSION="0.03";our$drh=undef;my$methods_already_installed;sub driver{return$drh if$drh;DBD::Sponge::db->install_method("sponge_test_installed_method")unless$methods_alread...
DBD_SPONGE
$fatpacked{"DBI.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI';
package DBI;require 5.008_001;BEGIN {our$XS_VERSION=our$VERSION="0.03";$VERSION=eval$VERSION}use Carp();use DynaLoader ();use Exporter ();BEGIN {@ISA=qw(Exporter DynaLoader);@EXPORT=();@EXPORT_OK=qw(%DBI %DBI_methods hash);%EXPORT_TAGS=(sql_types=>...
DBI::_firesafe; # just in case
require $driver_class; # load the driver
};if ($@){my$err=$@;my$advice="";if ($err =~ /Can't find loadable object/){$advice="Perhaps DBD::$driver was statically linked into a new perl binary." ."\nIn which case you need to use that new perl binary." ."\nOr perhaps only the .pm file wa...
DBI
mimi.fatpack view on Meta::CPAN
$fatpacked{"DBI/Gofer/Request.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_REQUEST';
package DBI::Gofer::Request;use strict;use DBI qw(neat neat_list);use base qw(DBI::Util::_accessor);our$VERSION="0.03";use constant GOf_REQUEST_IDEMPOTENT=>0x0001;use constant GOf_REQUEST_READONLY=>0x0002;our@EXPORT=qw(GOf_REQUEST_IDEMPOTENT GOf_RE...
DBI_GOFER_REQUEST
$fatpacked{"DBI/Gofer/Response.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_RESPONSE';
package DBI::Gofer::Response;use strict;use Carp;use DBI qw(neat neat_list);use base qw(DBI::Util::_accessor Exporter);our$VERSION="0.03";use constant GOf_RESPONSE_EXECUTED=>0x0001;our@EXPORT=qw(GOf_RESPONSE_EXECUTED);__PACKAGE__->mk_accessors(qw(v...
DBI_GOFER_RESPONSE
$fatpacked{"DBI/Gofer/Serializer/Base.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_SERIALIZER_BASE';
package DBI::Gofer::Serializer::Base;use strict;use warnings;use Carp qw(croak);our$VERSION="0.03";sub new {my$class=shift;my$deserializer_class=$class->deserializer_class;return bless {deserializer_class=>$deserializer_class }=>$class}sub deserial...
DBI_GOFER_SERIALIZER_BASE
view release on metacpan or search on metacpan
SHA1 81282c138afcda10dbba231c66827b38efdf771a lib/App/mirai/Subprocess.pm
SHA1 a1b06937158bf60aaf6c42b5a9ef73acb0ea4806 lib/App/mirai/Tickit.pm
SHA1 a31c202565e3c7db1ab2200f1f5a8ac9b7bd1f8f lib/App/mirai/Tickit/TabRibbon.pm
SHA1 7523878641b83e8a59b693e65aa04cd0f416f288 lib/App/mirai/Tickit/TabRibbon.pod
SHA1 f71e416e183e4cfddaddcf8ccfdae48d33748bdb lib/App/mirai/Tickit/Widget/Logo.pm
SHA1 db4df1f65dd58b4419147404e92a8bb8d2272e98 lib/App/mirai/Tickit/Widget/Logo.pod
SHA1 d3dcd146e9d22b0d39bc31cff6c9b4ac56fff98f lib/App/mirai/Watcher.pm
SHA1 3b601858c0379fcf616413f5cd7c57cadf9b76ba lib/App/mirai/Watcher.pod
SHA1 e875d5b24d924d8a40cb350b9ba8b1ae8b1a47cb lib/irai.pm
SHA1 51b9325dbe58a7a60c745bc270e63a43caed984d share/default.style
SHA1 985d9ded8d8ed7e344a09e52b1402e878e91da28 t/00-check-deps.t