Result:
found more than 742 distributions - search limited to the first 2001 files matching your query
( run in 2.341 )
App-mojopaste
view release on metacpan or search on metacpan
0.24 2016-10-13T10:01:53+0200
- Writing/reading files are more robust
0.23 2016-09-08T20:08:22+0200
- Fix rendering 404 for paste_not_found() and .txt extension
0.22 2016-09-06T21:18:39+0200
- Will never allow robots
- Will only graph csv data
http://www.cpantesters.org/cpan/report/873ffedb-6bf4-1014-a355-7b0739136c96
0.17 2016-01-13T21:36:27+0100
- Fix unicode.t by bumping Mojolicious version #10
- Cannot make empty paste
- Non-existing paste will result in 404 instead of 500 #8
Contributor: Stephan Jauernick
- Use File::Spec to construct correct paths on all OS #8
Contributor: Stephan Jauernick
0.16 2016-01-13T09:25:51+0100
- No need to encode/decode UTF-8 anymore
0.15 2015-04-30T10:17:13+0200
- Change "Powered by" URL
- Change styling for .morris-hover
- Change 404 page to show that the paste could not be found.
0.14 2015-04-20T17:03:36+0200
- Fix unit tests
0.13 2015-04-20T16:54:30+0200
0.04 2013-09-05T23:55:30Z
- Fix including jquery.js from Mojo
- Render as HTML5
- Looks better on iPhone
- Render 404 when paste is not found
- Trying to trick the dumbest robots
0.03 2013-09-05T16:54:59Z
- Fix typo in PREREQ_PM
App-mookview
view release on metacpan or search on metacpan
lib/App/mookview.pm view on Meta::CPAN
return $self->return_css($path) if $path =~ m!^/css/.+!;
Plack::App::Directory->new->to_app->($req->env);
};
}
sub return_404 {
return [404, [ 'Content-Type' => 'text/plain' ], ['Not Found'] ];
}
sub return_css {
my ($self, $path) = @_;
return $self->return_404 unless $path;
my ($name) = $path =~ m!/([^/]+?)$!;
my $local_path = $self->local_or_share_path([qw/share static css/, $name]);
return $self->return_404 unless $local_path;
my $css = $local_path->slurp();
return [200, [ 'Content-Type' => 'text/css', 'Content-Length' => length $css ], [ encode_utf8($css) ] ];
}
sub return_markdown {
App-mycnfdiff
view release on metacpan or search on metacpan
Author: Pavel Serikov <pavelsr@cpan.org>
Date : 2019-02-19 21:13:18 +0000
Readme.md
Change: 5ac090fc3f8dc94fd77fc1d6765ee3cb47340438
Author: Pavel Serikov <pavelsr@cpan.org>
Date : 2019-02-19 21:11:45 +0000
Initial commit
App-opan
view release on metacpan or search on metacpan
lib/App/opan.pm view on Meta::CPAN
$_[0]->stash(path => $_[0]->stash->{dist_path});
$nopin_static->dispatch($_[0]) or $serve_upstream->($_[0]);
};
get "/autopin/modules/02packages.details.txt" => sub {
return $_[0]->render(text => 'Autopin off', status => 404)
unless $ENV{OPAN_AUTOPIN};
$base_static->dispatch($_[0]->stash(path => "nopin/index"));
};
get "/autopin/modules/02packages.details.txt.gz" => sub {
return $_[0]->render(text => 'Autopin off', status => 404)
unless $ENV{OPAN_AUTOPIN};
$base_static->dispatch($_[0]->stash(path => "nopin/index.gz"));
};
get '/autopin/authors/id/*dist_path' => sub {
return $_[0]->render(text => 'Autopin off', status => 404)
unless $ENV{OPAN_AUTOPIN};
return if $nopin_static->dispatch($_[0]->stash(path => $_[0]->stash->{dist_path}));
return if eval {
do_pin(app, $_[0]->stash->{path});
$pinset_static->dispatch($_[0]);
};
return $_[0]->render(text => 'Not found', status => 404);
};
caller() ? app : app->tap(sub { shift->log->level('fatal') })->start;
=head1 NAME
App-optex
view release on metacpan or search on metacpan
lib/App/optex/util/filter.pm view on Meta::CPAN
my %control = (
nul => [ 's', "\000", "\x{2400}" ], # †SYMBOL FOR NULL
soh => [ 's', "\001", "\x{2401}" ], # â SYMBOL FOR START OF HEADING
stx => [ 's', "\002", "\x{2402}" ], # â‚ SYMBOL FOR START OF TEXT
etx => [ 's', "\003", "\x{2403}" ], # ⃠SYMBOL FOR END OF TEXT
eot => [ 's', "\004", "\x{2404}" ], # â„ SYMBOL FOR END OF TRANSMISSION
enq => [ 's', "\005", "\x{2405}" ], # â… SYMBOL FOR ENQUIRY
ack => [ 's', "\006", "\x{2406}" ], # ↠SYMBOL FOR ACKNOWLEDGE
bel => [ 's', "\007", "\x{2407}" ], # ⇠SYMBOL FOR BELL
bs => [ 's', "\010", "\x{2408}" ], # ∠SYMBOL FOR BACKSPACE
ht => [ 's', "\011", "\x{2409}" ], # ≠SYMBOL FOR HORIZONTAL TABULATION
App-org2wp
view release on metacpan or search on metacpan
lib/App/org2wp.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 $file_content = File::Slurper::read_text($filename);
my $post_heading_level = $args{post_heading_level};
App-orgadb
view release on metacpan or search on metacpan
lib/App/orgadb/Select/Shell.pm view on Meta::CPAN
sub catch_run {
my $self = shift;
my ($cmd, @argv) = @_;
$self->_err([404, "No such command"]);
return;
}
sub catch_comp {
require Perinci::Sub::Complete;
App-pandoc-preprocess
view release on metacpan or search on metacpan
ppp-Documentation.fdb_latexmk view on Meta::CPAN
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/amsfonts/symbols/msbm5.tfm" 1246382020 940 75ac932a52f80982a9f8ea75d03a34cf ""
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/amsfonts/symbols/msbm7.tfm" 1246382020 940 228d6584342e91276bf566bcf9716b83 ""
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmbx10.tfm" 1254269338 12076 b54175e02101bea1addf6b2d0197ed12 ""
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmbx12.tfm" 1254269338 12088 d750ac78274fa7c9f73ba09914c04f8a ""
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmr10.tfm" 1254269338 12056 7e13df7fe4cbce21b072ba7c4f4deb6e ""
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmr12.tfm" 1254269338 12092 7b1546e2d096cfd5dcbd4049b0b1ec2e ""
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmr17.tfm" 1254269338 12156 ca1ae6a3c8564e89597f1f993fba1608 ""
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmr7.tfm" 1254269338 12064 09aa3eeac96bf141d673bb1b0385ce55 ""
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmri10.tfm" 1254269338 17148 9556e1b5f936b77a796f68d2d559ba99 ""
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmtt10.tfm" 1254269338 1372 2ef2c2b492b3c4cd7879fe083abbb061 ""
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmtt12.tfm" 1254269338 1368 6a60e6a5e029141041d64d339b87e533 ""
ppp-Documentation.fdb_latexmk view on Meta::CPAN
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/amsfonts/symbols/msbm5.tfm" 1246382020 940 75ac932a52f80982a9f8ea75d03a34cf ""
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/amsfonts/symbols/msbm7.tfm" 1246382020 940 228d6584342e91276bf566bcf9716b83 ""
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmbx10.tfm" 1254269338 12076 b54175e02101bea1addf6b2d0197ed12 ""
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmbx12.tfm" 1254269338 12088 d750ac78274fa7c9f73ba09914c04f8a ""
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmr10.tfm" 1254269338 12056 7e13df7fe4cbce21b072ba7c4f4deb6e ""
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmr12.tfm" 1254269338 12092 7b1546e2d096cfd5dcbd4049b0b1ec2e ""
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmr17.tfm" 1254269338 12156 ca1ae6a3c8564e89597f1f993fba1608 ""
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmr7.tfm" 1254269338 12064 09aa3eeac96bf141d673bb1b0385ce55 ""
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmri10.tfm" 1254269338 17148 9556e1b5f936b77a796f68d2d559ba99 ""
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmtt10.tfm" 1254269338 1372 2ef2c2b492b3c4cd7879fe083abbb061 ""
"/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmtt12.tfm" 1254269338 1368 6a60e6a5e029141041d64d339b87e533 ""
App-perlall
view release on metacpan or search on metacpan
lib/Devel/PatchPerl/Plugin/Asan.pm view on Meta::CPAN
if (doeval(gimme, NULL, runcv, seq)) {
+ OP *ret;
if (was != PL_breakable_sub_gen /* Some subs defined here. */
? (PERLDB_LINE || PERLDB_SAVESRC)
: PERLDB_SAVESRC_NOSUBS) {
@@ -4037,7 +4043,9 @@ PP(pp_entereval)
char *const safestr = savepvn(tmpbuf, len);
SAVEDELETE(PL_defstash, safestr, len);
}
- return DOCATCH(PL_eval_start);
+ ret = DOCATCH(PL_eval_start);
App-perlbrew
view release on metacpan or search on metacpan
lib/App/Perlbrew/HTTP.pm view on Meta::CPAN
test => '--version >/dev/null 2>&1',
get => '--silent --location --fail -o - {url}',
download => '--silent --location --fail -o {output} {url}',
order => 1,
# Exit code is 22 on 404s etc
die_on_error => sub { die 'Page not retrieved; HTTP error code 400 or above.' if ($_[ 0 ] >> 8 == 22); },
},
wget => {
test => '--version >/dev/null 2>&1',
get => '--quiet -O - {url}',
lib/App/Perlbrew/HTTP.pm view on Meta::CPAN
test => '--version >/dev/null 2>&1',
get => '-o - {url}',
download => '-o {output} {url}',
order => 3,
# Exit code is 8 on 404s etc
die_on_error => sub { die 'Server issued an error response.' if ($_[ 0 ] >> 8 == 8); },
}
);
sub http_user_agent_program {
App-perlrdf
view release on metacpan or search on metacpan
SHA1 019edd7479827a5ce34f4bcebef1d2f32e17597d lib/App/perlrdf/Command/Validate.pm
SHA1 c53fed5353f055d8071d36a7a906b891300a1964 lib/App/perlrdf/DummyModel.pm
SHA1 72a2c58bad86ac50518eacb406ad394d7ae681dd lib/App/perlrdf/FileSpec.pm
SHA1 197a1ac919225cfc96d9bc73bf947b98bd47c773 lib/App/perlrdf/FileSpec/InputFile.pm
SHA1 e825f3bcd7ddbc9ae740389d9b3fe80c74255797 lib/App/perlrdf/FileSpec/InputRDF.pm
SHA1 bc2f37a861059dd6fbb407d19c1c8937b5c40475 lib/App/perlrdf/FileSpec/OutputFile.pm
SHA1 a08554d75585dc16d5ded889c944a93cc31af6a0 lib/App/perlrdf/FileSpec/OutputRDF.pm
SHA1 a80384ed5585861df9f1bcbd1a812de36eb42a21 t/01basic.t
SHA1 6241e55ff9b8eb12e239edfd8c6e8f09a905a878 t/02translate.t
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1
App-perluse
view release on metacpan or search on metacpan
SHA256 dc6abe9e5c332e98d93f082bdb3df8246b0d8025802956eb78b5e0e69f8623de t/010_version.t
SHA256 17dbd1738d37748b33f6a6fd3fae1bf95fbce8b7fa802ee8c81843b5d4c081b1 xt/check_changes.t
SHA256 5d37ab129b13c89c283d8bf47d73478da673609d3c5bd89418e475c071223f96 xt/consistent_version_numbers.t
SHA256 e88279db5c78ec7b6962d4e69d6dba21017f5ecec7911636239c3921953a0455 xt/cover.pl
SHA256 70234944e3cb809fe1a5a109442d1edffb61e2741a58934bdce01983c7ddea78 xt/cpan_changes.t
SHA256 4e59f938404c3364665c56609876ef7d8f1cfbf50fae15ea41e9d7d74f762127 xt/cpan_meta.t
SHA256 e1f62aa3ea76a489ff7af567425b7ff7248355b06d608b489bf5e336388b3606 xt/dist_manifest.t
SHA256 53380743cf5b29766d5f0414479b00668f1bd92511430dc45afa3a8eeab734da xt/distribution.t
SHA256 8966c5a37363adb08d354b5a0a6df1c35df4f95f83a3fe3559c16dc9eb4a7e04 xt/eol.t
SHA256 b8a967c89a3d9a7559a1041c17ca4c755e1eddc0f15cd395707529722c854c34 xt/kwalitee.t
SHA256 f0d398413940ba6876ac1405651c9c56b9282181cf933cdda44de00f73bea827 xt/no_tabs.t
App-phoebe
view release on metacpan or search on metacpan
lib/App/Phoebe/Oddmuse.pm view on Meta::CPAN
$log->debug("Requesting $url");
my $ua = Mojo::UserAgent->new;
my $res = $ua->get($url => {'X-Forwarded-For' => $stream->handle->peerhost})->result;
if ($res->is_success) {
return $res->text;
} elsif ($res->code == 404) {
return "";
}
oddmuse_http_error($stream, $res->code, $res->message, $url); # false
}
lib/App/Phoebe/Oddmuse.pm view on Meta::CPAN
my $url = shift;
if ($code >= 200 and $code < 300) { $code = 20 }
elsif ($code == 301) { $code = 31 }
elsif ($code >= 300 and $code < 400) { $code = 30 }
elsif ($code == 403) { $code = 60 }
elsif ($code == 404) { $code = 51 }
elsif ($code == 405) { $code = 59 }
elsif ($code >= 400 and $code < 500) { $code = 50 }
elsif ($code >= 500 and $code < 600) { $code = 40 }
else { $code = 50 }
$log->warn("$code $message requesting $url");
App-pl
view release on metacpan or search on metacpan
pod/examples.pod view on Meta::CPAN
> / 11010111111 2100222 122333 11555 2328 1727
> / 101000011111 10112222 220133 15555 3488 2591
> / 111100101111 12022222 330233 25555 5288 3887
> / 1011011000111 21222222 1123013 42555 7888 5831
> / 10001000101011 102222222 2020223 104255 12888 8747
> / 11001101000001 122222222 3031001 140425 18888 13121
> / 100110011100010 222222222 10303202 231042 28888 19682
> \ 10011001110001 111111111 2121301 113321 14444 9841
> / 11100110101010 202020202 3212222 152202 22222 14762
> \ 1110011010101 101010101 1303111 54101 11111 7381
> / 10101101000000 120012002 2231000 123132 16162 11072
App-plackbench
view release on metacpan or search on metacpan
t/test_app.psgi view on Meta::CPAN
my $method = $request->{PATH_INFO};
$method =~ s#^/|/$##g;
$method =~ s#/#_#g;
my $response = HTTP::Response->new(404, 'Not Found', [], 'Not Found');
if (my $sub = __PACKAGE__->can($method)) {
$response = $sub->($request);
}
push @requests, $request;
App-pmuninstall
view release on metacpan or search on metacpan
lib/App/pmuninstall.pm view on Meta::CPAN
sub fetch {
my ($self, $url) = @_;
$self->puts("-> Fetching from $url") if $self->{verbose};
my $res = HTTP::Tiny->new->get($url);
return if $res->{status} == 404;
die "[$res->{status}] fetch $url failed!!\n" if !$res->{success};
return $res->{content};
}
sub slurp {
App-pod2wp
view release on metacpan or search on metacpan
lib/App/pod2wp.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 $pod = File::Slurper::read_text($filename);
log_info("Converting POD to HTML ...");
App-podtohtml
view release on metacpan or search on metacpan
lib/App/podtohtml.pm view on Meta::CPAN
my $infile = $args{infile} // '-';
my $outfile = $args{outfile} // '-';
my $browser = $args{browser};
unless ($infile eq '-' or -f $infile) {
return [404, "No such file '$infile'"];
}
my $tempdir = File::Temp::tempdir();
Pod::Html::pod2html(
App-ppgrep
view release on metacpan or search on metacpan
script/_ppgrep view on Meta::CPAN
Mo/build.pm,419413,248,47;14020
Mo/builder.pm,419683,338,48;14024
Mo/chain.pm,420041,216,49;14028
Mo/coerce.pm,420278,330,50;14032
Mo/default.pm,420630,435,51;14036
Mo/exporter.pm,421088,176,52;14040
Mo/import.pm,421285,185,53;14044
Mo/importer.pm,421493,207,54;14048
Mo/is.pm,421717,228,55;14052
Mo/nonlazy.pm,421967,129,56;14056
Mo/option.pm,422117,259,57;14060
Mo/required.pm,422399,340,58;14064
Mo/xs.pm,422756,256,59;14068
script/_ppgrep view on Meta::CPAN
Sah/SchemaR/rinci/result_meta.pm,621993,2277,75;19972
Sah/Schemas/Rinci.pm,624299,1280,76;20030
String/LineNumber.pm,625608,2512,77;20086
String/PerlQuote.pm,628148,3383,78;20204
String/Wildcard/Bash.pm,631563,8895,79;20329
YAML/Old.pm,640478,3321,80;20643
YAML/Old/Dumper.pm,643826,17730,81;20760
YAML/Old/Dumper/Base.pm,661588,3735,82;21337
YAML/Old/Error.pm,665349,5985,83;21448
YAML/Old/Loader.pm,671361,25286,84;21639
YAML/Old/Loader/Base.pm,696679,1235,85;22410
script/_ppgrep 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(...)
#
App-psst
view release on metacpan or search on metacpan
test fix.
remove a capture variable to prevent an extra clone(2);
commit b8a97f67c9ef0f4be38a26a6940438d6bb8af6a8
Author: Matthew Astley <beeep$mca@t8o.org>
Date: Mon Sep 12 22:28:42 2011 +0100
some testing.
fails due to esc=$( echo -e "\e" )
App-renlikewd
view release on metacpan or search on metacpan
script/renlikewd view on Meta::CPAN
my %args = @_;
my $file = $args{file} or return [400, "Please specify file to rename"];
my $parents = $args{parents} // 0;
return [404, "File '$file' does not exist"]
unless File::Util::Test::file_exists($file);
my $ext = $file =~ /.(\.\w+)$/ ? $1 : "";
my $cwd = Cwd::getcwd();
return [412, "Please don't run me in root directory as it's meaningless"]
App-reposdb
view release on metacpan or search on metacpan
lib/App/reposdb.pm view on Meta::CPAN
return [400, "Please specify repo name"] unless defined $args{repo};
$dbh->begin_work;
my ($tags) = $dbh->selectrow_array("SELECT tags FROM repos WHERE name=?",
{}, $args{repo});
defined($tags) or return [404, "No such repo '$args{repo}'"];
my %tags = map { $_ => 1 } split /,/, $tags;
delete $tags{$_} for @{ $args{tags} };
$dbh->do("UPDATE repos SET tags=? WHERE name=?",
{}, join(",", sort keys %tags), $args{repo});
lib/App/reposdb.pm view on Meta::CPAN
return [400, "Please specify repo name"] unless defined $args{repo};
$dbh->begin_work;
my ($tags) = $dbh->selectrow_array("SELECT tags FROM repos WHERE name=?",
{}, $args{repo});
defined($tags) or return [404, "No such repo '$args{repo}'"];
$dbh->do("UPDATE repos SET tags=NULL WHERE name=?",
{}, $args{repo});
$dbh->commit;
[200];
}
App-revealup
view release on metacpan or search on metacpan
lib/App/revealup/cli/serve.pm view on Meta::CPAN
my $reveal_dir = App::revealup::util::share_path([qw/share/]);
$path = $reveal_dir->child($env->{PATH_INFO});
return App::revealup::util::path_to_res($path) if $path->exists;
App::revealup::util::warn("$path does not exist");
return [
404,
['Content-Type' => 'text/plain'],
['Not Found']
];
};
}
App-riap
view release on metacpan or search on metacpan
lib/App/riap.pm view on Meta::CPAN
my ($cmd, @argv) = @_;
my $pwd = $self->state("pwd");
my $uri = concat_and_normalize_path($pwd, $cmd);
my $res = $self->riap_request(info => $uri);
if ($res->[0] == 404) {
$self->_err([404, "No such command or executable (Riap function)"]);
return;
} elsif ($res->[0] != 200) {
$self->_err($res);
return;
}
App-rimetadb
view release on metacpan or search on metacpan
lib/App/rimetadb.pm view on Meta::CPAN
}
# try package metadata
my ($row) = $dbh->selectrow_hashref(
"SELECT metadata FROM package WHERE name=?", {}, $name)
or return [404, "Can't find function or package with that name"];
[200, "OK (package meta)", $row->{metadata}];
}
1;
App-rs
view release on metacpan or search on metacpan
$B = $t;
print "Available: ", jw($B);
} else {
say 'Getting module info from metacpan...';
$j = Rmodinfo($o->{module});
if (eval { $j->{code} == 404 }) {
$j = Vmodinfo($o->{module});
my @r = map { $_->{_source} } @{$j->{hits}{hits}};
if (@r < 1) { die c(RR, "Nothing provides $o->{module}.") }
elsif (@r > 1) { say c(YY, "Multiple modules provides $o->{module}: ",
join ', ', map { $_->{distribution} } @r) }
App-shcompgen
view release on metacpan or search on metacpan
lib/App/shcompgen.pm view on Meta::CPAN
if ($prog0 =~ m!/!) {
($prog = $prog0) =~ s!.+/!!;
$progpath = $prog0;
unless (-f $progpath) {
log_error("No such file %s, skipped", $progpath);
$envres->add_result(404, "No such file", {item_id=>$prog0});
next PROG;
}
} else {
require File::Which;
$prog = $prog0;
$progpath = File::Which::which($prog0);
unless ($progpath) {
log_error("'%s' not found in PATH, skipped", $prog0);
$envres->add_result(404, "Not in PATH", {item_id=>$prog0});
next PROG;
}
}
my $which = $which0;
lib/App/shcompgen.pm view on Meta::CPAN
_set_args_defaults(\%args);
my $progname = $args{prog};
my $progpath = File::Which::which($progname);
return [404, "No such program '$progname'"] unless $progpath;
$progname =~ s!.+/!!;
_detect_prog(
prog => $progname,
progpath => $progpath,
App-short
view release on metacpan or search on metacpan
lib/App/short.pm view on Meta::CPAN
return $res unless $res->[0] == 200;
my $S = $args{short_dir};
my $L = $args{long_dir};
return [404, "No such long name '$args{long}'"]
unless (-d "$L/$args{long}");
return [412, "Short name '$args{short}' already exists"]
if (-l "$S/$args{short}");
symlink(File::Spec->abs2rel(
lib/App/short.pm view on Meta::CPAN
for my $s (@{ $args{short} }) {
my $path = "$S/$s";
if (!(-l $path)) {
$envres->add_result(404, "Short name not found", {item_id=>$s});
} elsif (!unlink($path)) {
$envres->add_result(500, "Can't unlink: $!", {item_id=>$s});
} else {
$envres->add_result(200, "OK", {item_id=>$s});
}
App-traveller
view release on metacpan or search on metacpan
lib/Traveller/Mapper.pm view on Meta::CPAN
Raraxema 0609 B421768-8 T NSG Na Po
Xeerri 0610 C210862-9 G Na
Onreon 0702 D8838A9-2 S Lt Ri A
Ismave 0703 E272654-4 Lt Ni
Lara 0704 C0008D9-5 SG As Lt Na Va A
Lalala 0705 C140473-9 R G De Ni Po
Maxereis 0707 A55A747-12 CT NSG Ht Wa
Requbire 0802 C9B4200-10 G Fl Lo A
Azaxe 0804 B6746B9-8 C G Ag Ga Ni A
Rieddige 0805 B355578-7 G Ag Ni A
Usorce 0806 E736110-3 G Lo Lt A
( run in 2.341 seconds using v1.01-cache-2.11-cpan-788537b7465 )